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} ABSTRACT 


The practicality of using microcomputers to solve 
systems of equations of several hundred unknowns has been 
cemonstrated. However, machine and sottwane Pama a- lon. 
of eight bit processors made the construction of useful 
Finite element programs very difficult, and severely limited 
the size of problems which could be solved in a reasonable 
amount of time. The intreduction of the sixteen bit micro-= 
processor has completely revolutionized the microcomputer 
industry, and many of the limitations of the eight bit 
systems have been eliminated. The new microcomputers have 
made mainframe-like computing power available to everyone, 
at a very reasonable cost. For many reasons, Nowever, 
there are few general finite element programs available 
for the micrecomputer today. A general finite element 
program of moderate complexity called MEF ("Méthode des 
Eléments Finis") is adapted for implementation on the 
TBM PC-XT and the COLUMBIA MPC microcomputers. The 


resulting implementation is verified, and results are 
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A. BACKGROUND 

The microcomputer was introduced in Che ieee p ace. 
little over a decade ago, and has proceeded to develop at 
an astounding rate. The very large-scale integrated (VLSI) 
microcomputer of today performs at speeds four to six orders 
of magnitude greater than first generation computers. The 
power, utility and versatility of these microcomputers 1s 
such that their capability exceeds that of second generation 
computers, and they are as powerful as many minicomputer 
systems in avariety of applications. Indeed, the increas- 
ing capabilities of microcomputers have driven the latest, 
high-speed minicomputers to attain the versatility and 
performance standards of the former medium-scale mainframe 
computers | Ref. Lappe 122-3 [2 

Today, an unprecedented amount of computing power is 
available at a price which can be afforded by even the 
smallest cf engineering firms and research groups. Two 
years ago, research into the implementation cf finite 
element software on eight bit microcomputers was conducted 
by Mulholland [Ref. 2]. At that time, the cost of the 
computer system used for his research was approximately 
$6,000 [Ref. 2: p. 15]. The cost of each of the systems 


used in this research is about the same, but there is 


hardly a comparison in capability between the Apple II Plus 
used by Mulholland, and the IBM PC-XT of today. The problem 
today 1s that there is not a large library of engineering 
software available for engineering firms and research groups 
to take advantage of. Wilson [Ref. 6] states that less 
than one percent of current day finite element analysis is 
conducted on microcomputers. This lack of scftware leaves 
small firms and research groups (who do not have the staff, 
resources and time to develop extensive programs themselves) 
unable to take advantage of the computing power available 
to them. For this reason, there is a need to develop 
engineering software which will take advantage of the 
microcomputer's capabilities. Unfortunately, at this time, 
the limitations and capabilities of the software/micro- 
computer combination are largely unexplored. This thesis 
Tob attenpteto shed slsighteon the capabilities of the 
Sixteen bit microcomputer to perform general finite element 
analysis. 
1. Eight Bit Micros and Finite Elements 

When first introduced, microcomputers used an eight 
bit architecture which provided several stumbling blocks to 
the implementation of engineering software in general. The 
most Significant of these stumbling blocks was the memory 
Size limitation, and the second was a limited instruction 
set. The maximum addressable memory of the most advanced 


of these systems was 65,536 bytes. This address space was 


often limited, even further, by the presence of read only 
memory (ROM) chips which contained significant portions 

of the operating system for the computer. The result was 
a severe limitation to the size of application software, 
as well as the size of data objects. The instruction set 
limitation was significant because it complicated the 
implementation of high level language compilers, and almost 
all engineering applications are dependent on the avail- 
ability of high level languages. These two problems com- 
bined to cause another problem which was the immaturity 

of support software. The limited instruction sets required 
more code tc implement desired features, yet the small 
memory size restricted the amount of code severely. The 
result was that operating systems, compilers, and inter- 
preters were notorious for the things they could not do. 
Nevertheless, there have been a number of commercial as 
well as academic implementations of finite element codes 
on eight bit microcomputers. All of these implementations 
are limited to relatively small problems, and almost all 
are special application programs which solved only one 
type of problem (typically beams, trusses, or frames). 

As time progressed, the hardware and operating systems 
of microcomputers matured. With the advent of high speed 
floppy diskette drives and disk operating systems, the 
idea of using out-of-core linear equation solvers to solve 


larger systems of eguations on microcomputers became 
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achievable. Mulholland [Ref. 2: pp. 36€-46] demonstrated 
the ability of eight bit machines to produce an acceptable 
result using an out-of-core technique. As might be 
expected, solution times were somewhat slow, but the 
method increased the size of problem which could be solved 
with a limited amount of memory. After verifying the 
utility of the eight bit machine and out-of-core solver 
Car olumauwvon, Mulhedsabands |Refix 2: sp. 52-70] continued his 
investigation by implementing a modification of Mallory's 
[Ref. 3] STAP-NPS on the Apple-II Plus microcomputer. 

The result was a finite element system which was cumn- 
bersome to use, and supported only one element type. The 
system required the attention of the user to shift five 
Floppy diskettes between four disk drives in response to 
requests from the run time system. In his tests, over two 
hours were-regquired to solve a system of 160 equation 
having a half-bandwidth of 64. Mulholland's conclusion 
[Ref. 2: pp. 72-74] was that the system he used was not a 
Suitable tool for serious finite element work. He cited 
Six primary reasons why the system was inadequate for the 
eo eroaemehweouc Jae 1S Ssugnificant to note that five of 
the six reasons were actually operating system/compiler 
limitations. In other words, five of the six were due 
to immaturity of support software for the Apple-II Plus 


system at the time. 


dah 


Ze Sixteen Bit Microcomputer eineredees 


In 1981 and 1982 the™sixteen bites micrecemeurce: 
was introduced to the market. While the speed of these 
machines was as much as four or five times greater than 
the eight bit predecessors, the largest advantages were 
realized by the improved architecture and instruction sets.. 
Rao [Ref. 1: p. 205] cites a ten fold improvement in execu- 
tion time for the Intel 8086 over the Intel 8080A while 
the increase in clock speed was, at most, 4 times that of 
the 8080A. Obviously, the influence of the architecture 
and instruction set is strongly Significant. One of the 
most important improvements delivered by the sixteen bit 
processors was the amount of addressable memory; the 
smallest address space among the various architectures 
was 1024 kilobytes. This is not meant to imply that appli- 
cation software was able to take advantage of that address 
Space. There were no compilers, at the time, that would 
allow addressing outside a 64 kilobyte page. Even today, 
compilers that allow addressing beyond the 64 kilcbyte 
page are just beginning to enter the market. However, a 
tremendous amount of support software such as compilers, 
interpreters, spread sheets, etc. were ne longer limited 
to 64 kilobytes of memory. As a result, support software 
began to grow in size and capability. In addition to the 
increase in address space a number of the systems were able 


to make use of a separate coprocessor, the Intel 8087, for 


eZ 


numeric data processing. Although, no specific standard 
has been developed for comparing processing times with 

and without the coprecessor, most authors agree that addi- 
tion of the coprocesscr has been shown to increase the 
Peeca Ot Numeric Computation significantly [Ref. 4, 5]. 

The introduction of the sixteen bit machines, 
however, did not cause an immediate surge in finite element 
applications On microcomputers. Wilson [Ref. 6] points out 
that the development of engineering software is dependent 
upon the availability of a stable operating system, anda 
compatible FORTRAN compiler. While today's microcomputers 
are seldom marketed without an operating system, the 
initial versions of operating systems have been notoriously 
unreliable and unsophisticated. Therefore, a lag exists 
between the introducticn of the hardware, and the develop- 
ment of a stable operating system and a compatible FORTRAN 
compiler. The lag in the case of the eight bit machines 
was nearly ten years, but because of the experience gained 
in the development of these systems the lag was shortened 
considerably for sixteen bit microcomputers. 

At the outset of this investigation, the market 
boasted a variety of disk operating systems which supported 
floppy disks as well as the newer high-speed hard disks. 
There were two FORTRAN compilers available which had under- 
gone a number of modifications and promised the maturity 


necessary to support finite element applications. There 


i 


was also a wide variety of peripheral plotting devices 
and other equipment and software to support engineering 


applicatrvons: 


B. PURPOSE AND SCOPE OF Wee (NVeSoticArtray 

This investigation was conducted as an attempt to 
implement a general purpose finite element program on a 
Sixteen bit microcomputer, with the intent of determining 
whether or not the resulting system was practically useful. 
Wilson [Ref. 6] makes the assertion that new finite element 
work will be done in FORTRAN, primarily, because all general 
purpose finite element programs, to date, have been written 
in FORTRAN. This author supports the assertion with the 
observation that FORTRAN is also the most widely used and 
supported language in the engineering community. In addition, 
FORTRAN 77 eliminates most of the practical objections to 
FORTRAN as a programming language. Much previous work has 
gone into the implementation of the more notable general, 
finite element programs in use today, and the construction 
of these programs is a project which requires considerable 
investment in terms of manpower and dollars [Ref. 6]. 
Since the purpose of the investigation was to evaluate the 
usefulness of the resultant program/machine combination, 
it was desirable to implement a system of moderate com- 
plexity in order to provide a rigorous test. Therefore, 


the decision was made to convert an appropriate, existing 
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program rather than to reinvent the wheel. The program which 
was chosen, called MEF ("Méthode des Eléments Finis"), was 
written at the Université de Technologie, Compiégne, France. 
Justification for the choice of MEF is provided in section 
1.5 below. Initially, it was hoped that graphics, and user 
friendly input routines could be added to the implementation, 
however, time constraints limited the investigation to con- 


version of the existing software. 


See CHOICE OF THE MACHINE 

The major considerations influencing the choice of the 
microcomputer for this study were: 

(lL) Availability and support of system hardware (includ- 
ing peripherals). 

(2) The existence of a FORTRAN compiler compatible with 
the system. 

(3) The existence of a compatible, FORTRAN callable, 
graphics package for future implementation of graphics. 

(4) System cost. 

(5) The existence of a wide range of PeaMnceNs Support 
for hardware maintenance. 

(6) The availability of a wide range of commercial 
software for the system. 

The last two considerations are to insure that the 
chosen system was maintainable, and versatile. Presumably, 


any firm or research group considering the purchase of a 


li 


microcomputer would desire to use it for more than finite 
element analysis. The existence of technical support and 
commercially available software would be significant con- 
Siderations in the choice of a system. System hardware 
considerations included floppy disks, hare disks, modems, 
printers, plotters, graphical input devices (digitizers, 
joy sticks, mouse, etc.), and the ability €0 Supported 
large amount of memory. 

At the time equipment for the project had to be chosen 
IBM's complete domination of the microcomputer market made 
the choice of the IBM PC or a PC compatible microcomputer 
the logical choice of hardware for the system. In addition, 
the IBM PC was widely available at the Naval Postgraduate 
School. IBM's domination of the market also spawned a 
tremendous industry aimed at producing peripherals and 
software for the IBM PC. Therefore, it was clear that 
capable language compilers, graphics devices, graphics 
software, and other software would develop more quickly 
and predictably for the IBM PC than for other systems. 

In the end, two systems were used to conduct the 
investigation: an IBM PC-XT available at the Naval 
Postgraduate School, and a Columbia MPC. The Columbia 
MPC was chosen for use at home because of its lower cost 


and high degree of compatibility with the IBM Pc. 
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in Configuration of the System 


ViimaaaomMeeosmecnaewoon ene two machines chosen for this 


Study are minimal. 


The description which follows is appli- 


cable to both systems with exceptions as noted. 


COMPONENT 


er 


MEMORY 


Bor GAY 


MASS 


STORAGE 


ENTER 


SERIAL 
POmlS 


Table I. 


DES CRERTLLON 


INTEL 8088 with the 


INTEL 8087 coprocessor 


512 kilobytes 


Some Me il tor 

with graphics adapter 
and a monochrome 
display 


ome 5.25 Inen, double 
density, dual sided 
floppy diskette drive 
and one ten megabyte 
hard disk drive 


graphics capable, dot 
matrix, parallel 
printer 


two (one used for malin- 


frame communications, 


and one for a graphics 
input device in support 


of future graphics 
development) 


onfiguration of the System 


COMMENTS 


the Columbia sup- 
ported a graphics 
capable monochrome 
monitor with a 
graphics adapter 


the Columbia system 
initially supported 
EWOeomco unc, double 
density, dual sided 
floppy diskette 
drives and no hard 
disk drive 


The hard disk was not required for the development 


of the MEF system, however, 


the availability of the hard disk 


cut compile and linking time almost in half over the Columbia 


L 


Floppy disk system. When compile and link times approached 
two hours on floppy disks for the complete MEF system, the 
increased speed of the hard disk was significant. Later 

in the investigation, a fifteen megabyte hard disk was 
added to the Columbia MPC. 

At the beginning of the investigation it was impos- 
sible tc determine the amount of memory which would be re- 
quired to implement MEF. However, the original implementation 
Of MEF on a VAX 780 minicomputer contained a working array 
consisting of 160 kilobytes. The memory size of 512 kaliee 
bytes was chosen because it was the amount which would fully 
populate the memory expansion board chosen, and it was felt 
that it would be large enough to minimize the difficulty in 
implementing program overlays if overlays became necessary. 

Both systems run using functionally identical oper- 
ating systems (MS DOS for the Columbia and PC DOS for the 
IBM). Indeed, no modifications of any kind were required 
to carry the software between the two systems. Even the 
compiled and linked programs could be carried between the 
systems. 

2. CPU Speeds teers 

CPU speed for the two systems is advertised to be 
4.77 MHz. However, the hardware and operating systems of 
both machines are extensively interrupt driven. No criticism 
is intended of this extremely powerful method of implemen- 


tion, however, it was known that the effective speed of the 
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system would be somewhat lower than the clock speed because 
of the system overhead created by extensive use of inter- 
rupts and interrupt handlers. For this reason, a simple 
test was devised to determine the processor speed available 
to a user program (apparent speed) to compare with eight 
bit precessor speeds. 

The test involved writing a simple assembly language 
routine which would place the processor ina loop cf speci- 
fied length. The system clock was accessed just before 
and just after the loop to compute the time spent in the 
loop. [Ref. 7] was used to determine the number of clock 
cycles in the loop, and the number of times through the 
loop was chosen to be large enough so that the computation 
time involved in accessing the clock would not significantly 
influence the resultant computation. The program and cal- 
culations used are detailed in Appendix A. The result of 
the test indicated that the apparent speed of the systems 
1S approximately 3.56 MHz (worst case). This test was 
somewhat subjective, however, the result gave some insight 
into the minimum performance which could be expected from 
the system. While the 3.5 MHz speed is significantly lower 
than 4.77 MHz, it is still about one and a half times 
greater than typical eight bit processor speeds; coupled 
with a better architecture and instruction set it was clear 


that significant things could be expected. 
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3. Matrix Solution Demoeneeratven 

In comparison with the matrix solution tests con- 
ducted by Mulholland [Ref. 2: pp. 45-48] tests of the IBM 
PC-XT, and the Columbia MPC configured with 512 kilobytes 
of RAM yielded significantly faster solution times for 
even larger matrices than those tested by Mulholland. The 
tests were conducted using the FORTRAN program in Appendix 
B to solve double precision, fully populated, matrices. 
The solver uses an LU decomposition followed by back sub- 
stitution, and takes no advantage of symmetry or bandwidth. 


The results are as follows: 


Table II. Matrix Solution Benchmark Tests 


DEGREES PRED LC ie ACTUAL 
FREEDOM SOLUTIONS wins SOLUTION Sia 
25 — unknown 0.0577 aaa 
BZ Zena - 119 ae 
EGG a O° Man. 3.48 mame 
200 29 2 ae Bi. 27.56 aiebae 


The first test was conducted on a matrix whose 
storage requirements would not exceed 64 kilobytes, but 
would be large enough to provide a usable benchmark. The 
32 degree of freedom (DOF) matrix was run for direct com- 
parison with the results obtained by Mulholland [Ref. 2: 


pp. 45-46]. As can be seen from the table, the time 
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required for solution was small as compared with the Apple 
II Plus best time of 2.68 minutes, and the HP 9845 best 
time of 0.87 minutes. In comparison with Mulholland's 
reported solution time of approximately 2.5 hours for a 
160 DOF problem having a bandwidth of 64, test four took 
ely 27.56emainutes:, 

The solution time for the type of solver used varies 
with the cube of the number of degrees of freedom (1.e., a 
two fold increase in DOF would predict an increase in solu- 
tion time of eight). The predicted times for the last 
three tests were based on the actual execution time for 
the first test. Since the actual times are even faster 
than the predicted times the conclusion can be drawn that 
the overhead of addressing outside a 64 kilobyte memory 
page is not excessive for this compiler, and does a seem 
to vary with how far outside the memory page the addressing 
goes. If the results of test tnree are used to predict 
test four the resultant prediction would be 27.84 minutes. 
As the table shows, this is very close to the actual execu- 
meemeelme. It 1S important to note that for the size 
matrices tested, and the amount of memory available the 
solutions were achieved in-core. Therefore, in many 
respects, the comparison with Mulholland's data is infor- 
mative, but not exactly fair. 

The significance of the comparison is that it shows 


the size of problem which can be solved ina relatively 


ae 


short period. The impeeore Se@daaiaongot ya 20ND Or came le 
precision system 1S important both because it has only 
recently become possible, and because it represents the 
solution of a moderate sized finite element system with a 
maximum bandwidth. Larger systems could be solved in-core 
if bandwidth were minimized, and the solution technique 
took advantage of symmetry and bandwidth characteristics, 
as is done with most modern finite element programs. For 
systems which take advantage of these characteristics, the 
solution varies as the product of DOF and the square of the 
bandwidth. This means that a finite element system having 
a bandwidth of eighty and five hundred degrees cf freedom 
would be solved in about one third the time as test four 
above (after assembly), or 1£ a factor of three is ,assimed 
for all the processing, it would take —— the 
same time as test four. Even larger systems could be solved 
using out-of-core techniques, but a fairly large number of 


problems can now be solved in-core. 


D. CHOICE OF (Geir wii: 

At the start of this investigation, the, Macrosoi: 
FORTRAN compiler (version 3.1) was the only one which 
offered features that might be used to implement arrays 
requiring more than 65,536 bytes of storage. In order to 
avoid typical limits on data sotrage, Microsoft reserved a 
full 64k segment for each named common block. In support 


of portability, the compiler offered a complete ANSI FORTRAN 
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77 Subset with a few extensions to the full language. 
eeoloe se edesused for most of the preliminary work 
with MEF, however, difficulties involved in restructuring 
the program to take advantage of the Microsoft named com- 
mon block features prevented the implementation of MEF 
with full sized arrays. Later in the investigation, 
Microsoft FORTRAN was updated to version 3.2. The new 
version supported unrestricted array sizes, overlay sup- 
port, and an improved support for the Intel 8087 math 


coprocessor. 


Pocono LCh OF PROGRAM FOR CONVERSION 

To provide a sufficiently rigorous test of the computer 
and software combination it was desirable to implement a 
general finite element program of moderate to robust com- 
plexity. The characteristics of such a program include: 

1. The ability to solve a variety of problems in- 
cluding problems of elasticity, heat transfer, and fluid 
mechanics. 

2. A choice of element types, and the ability to add 
elements as needed. 

3. The ability to solve both static and dynamic 
problems of large size involving more than one element 
type. Including problems having different degrees of 
freedom at each node, symmetric or nonsymmetric element 


Matrices. 


aS, 


4. The solution of eigen value problems. 

5. The ability to solve nonlinear problems. 

For the purpose of implementation of a finite element 
code on a microcomputer it would also be useful if the 
program included an out-of-core equation solver to elimi- 
nate severe restrictions on problem size, and block struc- 
tured code to minimize the difficulty of developing overlays 
1f necessary. 

Practical considerations included the availability of 
source code and thorough documentation for the program. 

It was also necessary, because of time constraints, to 
have the source on some type of machine readable media. 

One program which satisfied most of the above char- 
acteristics was called MEF. In addition, there was a 
version of MEF available at the Naval Postgraduate School 
which ran on the VAX 780 under the VMS operating system. 
The documentation for MEF was contained in a book [Ref. 8] 
which was translated from French by Professor Gilles Cantin 
of the Naval Postgraduate School. Therefore, this investi- 
gation chose MEF, the "Méthode des Eléments Finis," to 
convert for implementation on the IBM PC-XT and Columbia 


MPC microcomputers. 
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IT. CONVERSION OF MEP 


A. GENERAL 

The version of MEF which was available at the Naval 
Postgraduate School was written in FORTRAN IV. The FORTRAN 
77 compiler on the VAX 780 at the Naval Postgraduate School 
was able to compile the FORTRAN IV code with no alterations, 
and the result was tested using problems for which the 
solutions have been published [Ref. 8: pp. 447-503]. 
However, the FORTRAN 77 implementation on the VAXK is a 
robust version of ANSI standard FORTRAN 77, with many 
extensions which provide compatibility with earlier ver- 
Sions of FORTRAN. The Microsoft FORTRAN version 3.1 which 
was used at the eee of this study met the require- 
ments of the ANSI subset of FORTRAN 77 with a few exten- 
sions to the full language. 

imeceonera|, moctmeot the orobkems that occur,in convert-— 
ing engineering applications programs from FORTRAN IV to 
FORTRAN 77 are tied to the character and string handling 
differences between the two versions. Occasionally, 
problems arise in the conversion of do loops because 
FORTRAN IV did not prevent the poor programming practice 
of jumping into the range of a do loop. Additional prob- 
lems arise when using the subset language because it does 


not support BLOCK DATA modules and requires all occurrences 
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of a named common block to be exactly the same length. 
These two problems are mentioned because of their common 
use in engineering applications, and because of their ex- 
tensive use in MEF. Aside from these general areas, con- 
Siderations specific to implementation on a microcomputer 
include restrictions on array size imposed by the compiler, 
and memory size limitations imposed by the hardware/ 
Operating system (the operating system for the IBM PC does 
not support virtual Memory). Version 3.1” °0f the Microc@me 
Compiler supported a maximum array size of 65,366 bytes 
(approximately 8,170 double precision words), and a maximum 
subscript value of 32,767 [Ref. 9: p. 63]. As mentioned 
previously, version 3.1 prévided seme selier ren reas 
to memory restrictions by reserving 64 kilobytes of storage 
for each named common block [Ref. 10: p. 54]. 

The conversion of MEF took place in two major phases. 
The first phase used Microsoft FORTRAN version 3.1, and 
was unsuccessful. The second phase used Microsoft FORTRAN 
version 3.2 which was actually two full eS) Sos improved 
over version 3.1. The second phase was successful (with 
some restrictions) after a number of problems with the 


compiler (bugs) were identified and circumvented. 


Ba) PHASE TONE 
The original version of MEF was approximately 4800 


lines long which included the comments (written in French). 
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There are very few microcomputer based text editors which 
(mia hanele files of that Lengthy and the ones that do 
become totally bogged down with the overhead of managing 

the file. It was determined that the most effective way to 
proceed would be compile approximately 500 lines of code on 
the microcomputer to identify the specific items which 

could be changed globally in the original code. After the 
necessary modifications were determined, they were made to 
the entire file using the VAX text editor, EDT. When the 
modifications were complete the large file was broken into 
five separate segments of approximately 1000 lines each and 
transferred, via modem, to five separate floppy diskettes. 
Five diskettes were required so there was room to edit and 
compile the separate modules. The Microsoft compiler creates 
intermediate (scratch) files which are almost twice the size 
of the source file. The easiest, safest place to place the 
scratch files is on the same diskette as the source file, 
and 1000 lines of source code, cn the average, create scratch 
files which nearly fill the diskette. 

FORTRAN does not support true dynamic memory allocation, 
and will not allow the direct manipulation of array sizes 
during execution. Therefore, MEF, like many other finite 
element program, implements a pseudo-dynamic memory alloca- 
tion so that array sizes may be altered during execution. 

In order to do this, all arrays are declared as one dimen- 


Slonal arrays and stored sequentially ina single large 
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working array. A table of pointers is made to keep track 
of the beginning of each array, and as tables are deleted 
the separate tables are moved to accommodate the change. 
MEF defines the large working array, called VA, to be in 
blank common, and makes extensive use of named common for 
all other common block applications. For thisesneason, ae 
basic structure of MEF had to be altered to implement its 
conversion with the Microsoft Compiler version 3.1. There 
were some 15 named common blocks in MEF, and since the 
compiler reserved 64 kilobytes for each cone, approximately 
960 kilobytes would have been used just for commen block 
allocation. Needless to say, there was not enough memory 
available even if the compiler/linker combination were 
capable of handling the problem. 

The program structural change attempted, was to switch 
all of the elements in named common blocks to blank common, 
and the single array VA from blank common to named common. 
It was envisioned that several named common blocks could 
eventually be used so that the actual size of the working 
array could be larger than 35,366 bytes. Considerable 
time was spent in effecting this change, and trying to get 
the resultant version of MEF to work. However, the changes 
were too comprehensive, and the attempt was aborted when a 
new version of the compiler was received in May of 1984. 
The improvements in version 3.2 allowed the complete aban- 


donment of the restructuring approach, and while phase one 
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was unsuccessful, the time spent was not wasted. It allowed 
familiarization with the structure of MEF, and with the 
Specific areas where the FORTRAN IV code needed to be 
altered for compatibility with subset FORTRAN 77. In addi- 
tion, it provided considerable familiarization with the 
operating system, editors, and hardware of both the VAX and 


the IBM PC-XT/COLUMBIA MPC. 


C. PHASE TWO 
A new version of MEF which contained english comments 
was received about the same time as the new version of the 
Microsoft Compiler. Once again, proceeding as before, a 
smaller segment of code was used to determine the global 
changes required on the main body of the code, before trans- 
ferring it to floppy diskettes. Because of the changes in 
Microsoft FORTRAN version 3.2, there were significantly 
fewer alterations required to the global structure of MEF; 
all of the initial changes pertained, strictly, to the 
treatment of characters and strings, and to the task of 
making the named COMMON blocks the same length in each 
reference. 
ee me LOsOrte Version 3.2 improvements 
Improvements in the compiler which affected the 
implementation of MEF are as follows: 
i oupeeme Lor the BLOCK DATA statement. 
Wee ee ormtetomnartays and COMMON blocks longer 
than 64 kilobytes. 


Zo 


3. Inclusion of A simple overFay linker Yovertay- 
were unnecessary in the end, but at the time the investiga- 
tion started there was no way to tell whether or noe ence, 
would be required). 

4. Better support for the Intel 8087 coprocessor 
including implementation of the ThEEeel ostennie point math 
standard (the default for this version}. 

From the point of view of this investigator, the 
Single most important change in the Microsoft Compiler was 
the support for large arrays and common blocks. This is 
the change which eliminated the unusual implementation of 
named COMMON present in version 3.1. It must be noted here, 
that though the common block problem was solved, the ability 
to address more than 64 kilobytes beyond the beginning of 
an array Or common block was often defeated by compiler/ 
linker bugs. Simple applications such as the array solver 
shown in APPENDIX B had no difficulty in compiling, linking, 
and producing results using arrays limited only by ae 
amount é jaereail available. However, more complicated 
programs with numerous common blocks and arrays provide a 
serious challenge to the compiler/linker combination, and 
the results are not always gratifying. The improvement 
over earlier versions, however, are monumental and conversa- 
tions with Microsoft Technical Support indicate that fume 
releases of the compiler will solve the types of problems 


encountered in this research. 
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Dig Sie Mememy Model~implementation of MEF 


With the improvements mentioned above it took only 
a few weeks to provide a working version of MEF which was 
called the "Small Memory Model" (SMM). That is, no arrays 
were declared to be large (the working array size was cut 
to 2000 words). For details of the compiler structure, the 
reader is referred to [Ref. 12: pp. 99-129]. The result 
was that the working array was kept in a default data segment 
referred to as DGROUP. DGROUP also contains memory pointer 
variables used by the compiler and run-time system; the 
stack, which is used for passing parameters between sub- 
routines; static variables and constants; and addresses of 
other data segments such as named COMMON blocks and large 
ee oe The result as that the small memory model is sig- 
nificantly limited in comparison to the later implementation 
(called the large memory model) because the working array 
Size could not drive the size of DGROUP over 64 kilobytes 
without declaring the dummy arrays as large arrays. The 
ome Sogn li faeank dathiaeul tyecencountesededuring this con- 
version was that the BLOCK DATA module would not initialize 
correctly. Conversations with Microsoft technical support 
indicated that this was a known bug and that BLOCK DATA 
had to appear as the first object in a link module in order 
her Gemreet initialization tosetake place. 

The correctness of the small memory model was veri- 


fied with the published results used to verify the VAX 


31 


implementation. In all cases, the results obtained on the 
microcomputer were identical with those published by Dhatt 
and Tuzot [Ref. 8], with the exception of residual computa- 
tions. Residual computations on the microcomputer produced 
number of the same (small) magnitude but not the same 
mantissa. It is suspected that this could be, in part, 
related to Microsoft's adoption of the IEEE standard for 
real number representation and calculations. The differences 
in residual computations are considered to be inconsequential 
by this investigator. At the time the small memory model 
was completed, MEF contained only the first two elements; a 
quadratic element for anisotropic harmonic problems in one, 
two, or three dimensions; and an eight noded quadrilateral 
element for two dimensional elasticity problems. 

3. Large Memory Model Implementation of MEF: 

To begin with, the simplest of approaches was used 
to convert to a large memory model; all arrays were declared 
large (using the compiler "metacommand" SLARGE [Ref. ll: pp. 
186-187]). This approach was used because of its simplicity, 
and the fact that all dummy arrays of the working array 
(arrays which were contained within the working array) had 
to have the SLARGE attribute for the compiler to generate 
correct linkages. Initial compiler diagnostics included 
errors for several DO loops that indicated that the compiler 
believed an illegal jump into the range of a DO had keen 


executed. Each of the affected DO loops was nested and did 
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not appear to violate the specifications of FORTRAN 77. 
Furthermore, they had not caused problems with the implementa- 
tion of the Small Memory Model. These problems were alle- 
viated by the use of the compiler metacommand $DO66 [Ref. ll: 
p. 183] which tells the compiler to use the FORTRAN 66 DO 
loop conventions (it does not appear that this should have 
Wommea, but it did). 

The resulting code compiled and linked without diag- 
MOosteics but “did not work. The initial symptom was that it 
did not recognize any of the commands contained in the input 
stream. Diagnostic write statements revealed that the array 
used to store the list of commands was not initialized 
correctly. The array (BLOCS) was initialized by a DATA 
statement within the main program. The statement appeared 
to be correct in syntax and generated no diagnostics, yet 
writing the contents of the array indicated‘: that it con- 
tained nulls. The DATA statement initialization of the 
array was replaced with a call to a subroutine which ini- 
tialized the array using assignment statements. This solved 
the command recognition problems, but runtime errors which 
involved a variety of arithmetic operation violations were 
produced. Usually these errors were overflows, underflows, 
or attempts to use an uninitialized variable in an arith- 
metic operation. The particular error depended upon what 


fix up had been used to overcome the previous error. 
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Curing this period, conversations with Microsoft 
Corporation's technical support department indicated that 
there were several reported bugs in the compiler. One was 
the BLOCK DATA problem mentioned above, and another was 
that arrays which had the large attribute were not always 
initialized correctly by data statements. However, this 
last problem was only supposed to occur with REAL arrays. 
The first problem was solved by compiling the BLOCK DATA 
module separately, and linking it as the first module at 
all times. This did not alleviated the incorrect initialiaae 
tion of the CHARACTER*4 command array, so the MAIN program 
segment was compiled separately assigning the SLARGE attri- 
bute to the working array, and allowing all other arrays 
in the MAIN program to default to SNOTLARGE. After this 
the command array was initialized correctly, but run-time 
errors were still a problem. 

The use of character arrays to pass table names was 
prevalent throughout MEF, and diagnostic write statements 
indicated that some of them were being initialized correctly 
and some were not. Since there were so many of them and 
there did not seem to be any particular characteristic which 
would identify which ones would initialize and which would 
not, the arrays containing all of these tables were declared 
SNOTLARGE. This resulted in the tables initializing cor- 


rectly, but the run-time errors persisted. 


34 


rt is appropriate to mention here that the time to 
compile and link after making changes which required recom- 
meee eabimmedules was’ close to two hours on the Columbia 
floppy disk system. The IBM PC/XT had only recently become 
available and reduced compile and link time to under an hour. 
In addition, the linked module using the mixture of meta- 
commands was often over 400 kilobytes long. A standard 
floppy diskette will only hold 360 kilobytes and these ex- 
cessively large linked modules would not have been possible 
without the hard disk. Further, it would not have been 
possible to proceed without them either; the run-time errors 
proved essential in localizing the problems and identifying 
them as compiler bugs rather than logic errors. The linked 
module using the generic SLARGE metacommand, was approximately 
239 kilobytes, and while neither module would execute cor- 
rectly, the increase in size of the mixed module was highly 
Suspect since the SNOTLARGE metacommand was supposed to 
produce less object code. 

Further conversations with Microsoft Technical Support 
indicated that there had been some reports that mixing the 
SNOTLARGE metacommand with the SLARGE metacommand could 
cause problems, and that the syntax for the S$ (NOT) LARGE 
command was incorrect in the reference manual. The manual 
[Ref. 11] specified that the $(NOT)LARGE metacommand could 
be used with a string of array identifiers separated by commas. 


However, according to technical support each occurrence of 


B'D 


the metacommand could only declare a single array name, and 


the metacommand required a colon separator between the command 


and the array name (i.e., SLARGE:, array). If the metaconmeane 


was used without an argument (called a generic $ (NOT) LARGE) 
then all arrays in the compiland were considered to have the 
Dalia Gaaay ie. aces eee 

Since the mixing of the SNOTLARGE command with the 
generic SLARGE command was suspect, numerous attempts were 
made to identify all arrays which required the S$LARGE attri- 
bute and declare them specifically while allowing all others 
to default to SNOTLARGE. None of these attempts worked. 
Conversations with Microsoft Technical Support indicated 
that the investigation had possibly uncovered some new 
problems with the compiler and requested that the problem be 
documented and- sent to Microsoft with a diskette containing 
the software (they were less enthusiastic when told how 
extensive the software was). 

As a last act of desperation, all data statements 
which initialized arrays were commented out. The daca 
statement initializations were performed with assignment 
statements either directly or through subroutine calls, and 
all modules were recompiled using the generic SLARGE meta- 
command. The resulting linked module was approximately 240 
kilobytes long and was able to run the simple test problems 
with no difficulty. However, as the size of problems was 


increased, the behavior of the program became unpredictable. 
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The program worked properly until the problem required more 
than 64 kilobytes of the working array to run. This always 
occurred during execution of the assembly and solution pro- 
cess, and the results vary depending upon which element sub- 
routine is being used (i.e., which incorrect internal 
linkage is being used). 

To summarize the problems mentioned above: 

1. Arrays which have the SLARGE attribute are not 
always initialized correctly with data statements. The in- 
were ct initialization is not predictable, nor 1s it con- 
fined to REAL arrays. 

2. The SLARGE and SNOTLARGE metacommands cannot be 
used inside the same compiland. 

3. BLOCK DATA must appear as the first module ina 
link module. 

‘@., Nested DO locps can sometimes generate compile 
time errors. 

imcMeoraonmmntoucleanmun the@longescreams Of assign- 
ment statements caused by the data statement protlem, a 
separate compiland was created in which subroutines whose 
names begin with "INIT" (see Appendix E, pp. 247-258 ) were placed. 
The methcd used was to pass the name of the array being 
initialized as a calling parameter. The passed parameter 
was declared SLARGE, and all other arrays were allowed to 
default to SNOTLARGE. A SNOTLARGE "dummy" array was initial- 


ized with a data statement and a DO loop was executed which 
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assigned the elements of the "dummy" array to the passed 
array, and then executed a return. During the creation 

of these subroutines it was discovered that the data state- 
ments in the first subroutinewor*theweenpiland wealeamnc. 
anitialize correctly. If the initializations were character 
strings no diagnostic was generated, but if the initializa- 
tions were REAL constants the compiler would generate 

"CANNOT CONVERT CONSTANT" diagnostics. A subroutine called 
DUMMY which had no function, and was never called by another 
routine was created and placed as the first subroutine in 

the compilancd. The method is not elegant, but it worked, 

and it eliminated long strings of assignment statements which 
did nothing more than assign constants every time a subroutine 
was called. In the case of many subroutines these statements 
were only executed once, however, in the case of element 
subroutines, they were executed many times during a problem 
SOs wiesyojiey. 

During the course of this investigation five elements 
were added to MEF, and it was only after the implementation 
of these elements and the initialization routines that 
problems large enough to cause difficulties were attempted. 
It was feared that the modifications to MEF had possibly 
induced some of the problems. In crder to demonstrate 
whether or not the microcomputer code was portable, and to 
verify that compiler bugs were the problem, and not a "fausamee 


in program logic, MEF was transferred by modem to the VAX 780. 
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The transferred code required four lines of code to be modi- 
fied. Two of the lines were OPEN statements which contained 
file names that had illegal character strings under the VMS 
operating system, and two contained an illegal format ele- 
ment, a backslash (in the Microsoft implementation, the 
backslash suppresses an automatic carriage return linefeed 
at the end an output line). The resulting FORTRAN program 
compiled and linked with no further diagnostics, and its 
results have been verified using published test problems 
ar oleedna {|_Ref. 13: pp. 170-177]. j%$In addition, the 
results have been tested using the Graphics Interactive 
Finite Element Timesharing System (GIFTS), and CAL-NPS. A 


selection of the test problems has been provided in Appendix E. 


PeeeecbOBAL STRUCTURE AND USE OF MEF 

It is not the intention of this thesis to provide a com- 
prehensive programmer's reference manual or users guide to 
MEF. However, an overview of the structure of MEF will be 
helpful to any potential user of this powerful tool. For 
greater detail, the reader is referred to Chapter Six of 
Peer. Si. 

iPeewenet tonal Blocks Of MEF 

MEF consists of sixteen functional blocks. Some 

of the blocks are reguired for all problem types, and some 
of the blocks are optional depending on the problem being 


Sselmvod. The functional blocks are also the names of the 
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block calling cards (or commands) and are listed in Table 
III below. An underscore indicates that the block is 
required for all problem types. 

Functional block diagrams are provided in Appendix 
C, and complete descriptions of the input data cards are 
provided in [Ref. 8: pp. 440-447]. The main program con- 
trols the flow of all information through the functional 
blocks by transferring control to a subroutine called BLNNNN 
when the block calling card NNNN is encountered in the input 
file. The subroutine BLNNNN then performs preliminary func- 
tions such as logical unit identification, and reading of 
control parameters for the creation of various files and 
tables. The subroutine then calls subroutine EXNNNN. In 
all cases, subroutine BLNNNN provides appropriate default 
parameters which will be overridden by user values if 
specified. Subroutine EXNNNN then performs the major opera- 
tions of the block by calling on the needed subroutines in 
the MEF library. The above protocol holds for all blocks 
except STOP, COMT, and IMAG. All the functions of COMT 
and IMAG are performed by subroutine BLNNNN, and the func- 
tion of block STOP is performed by the main program. 

With the exception of blocks IMAG, COMT, and STOP 
each block uses a named COMMON/NNNN/ to assist in the pass- 
ing of needed information between subroutines. The blocks 
COMT and IMAG use a named common block, COMMON/TRVL/, which 


is used as a scratch pad for various routines. Block Saea 
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does not require its own common block but uses the informa- 
mont com CoMm.ON /PaanOC/Stowperform ts funetion of printing 
the maximum length of the working array used during execu- 
tion of the problem. The common block COMMON/ALLOC/, is 
used by subroutine ESPACE and VIDE to Keep track of the 
amount of working space allocated at any time. Subroutine 
ALLOC allocates table space, and subroutine VIDE deletes 
unneeded tables followed by compacting the workspace. 
Variable and array naming conventions and details 
are contained in [Ref. 8: pp. 369-376] these details are 
omitted here because they will only be helpful to the 
reader who intends to modify MEF. In that case the reader 


is referred to the source for the extensive detail required. 


fas lcowili ie Functional ekieck Summary 


IMAG Copies the input data card images to the output 
listing. Must be the first card if used. 

Corr Places comments into the output listing. 

GOOR Reads the nodal coordinates and number of degrees 
of freedom of each node. Provides automatic node 
generation. 

DLPN Provides the ability to modify the degrees of freedom 
at a node. Particularly useful with problems using 


more than one element type. 


COND Reads the boundary conditions. 
PRND Reads nodal properties if required by the problem. 
PREL Reads element properties if required for the element 


type being used. 
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ELEM Reads the element connectivities. Also reads element 
group information when more than one element type is 
used, or when elements have different properties. 
Provides automatic element generation. 





SOLC Input of concentrated loads. 

SOLR Input of distributed loads. 

LINM In-core assembly and solution of a linear system of 
equations 

LIND Out-of-core assembly and solution of a linear system 


of equations. 


NLIN Provides a limited nonlinear solution capability 
using the Newton-Raphson method. 


TEMP Provides the solution of a linear or nonlinear time 
dependent problem using an Euler method. 


VALP Computes eigenvalues and eigenvectors using the sub- 
space iteration method. 


STOP Terminates execution of the problem. 


The following information concerning array names is 
provided because the array names may appear in the output 
listings with no explanation when verbose printouts are 
requested. Block COOR creates the table of nodal coordinates 
in the array VCORG, and the cumulative degrees of freedom in 
the array KDLNC. Block COND stores the equaticn identifica- 
tion number for each degree of freedom in the array KNEQ, and 
the specified degrees of freedom at a boundary in the array 
VDIMP. Block ELEM creates the array KLD which contains the 
location of the beginning of each column in a skyline matrix, 
and writes a disk file containing all information pertinent 


to the description of an element. The disk file will be used 
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in the assembly process to create element and global stiff- 
ness matrices. Block PREL creates the array VPREG in which 
it stores the properties cf the various groups of elements. 
The global stiffness matrix, VKG, is created in block LIND 
Or LINM. The entire stiffness matrix consists of three 
submatrices VKGS, VKGD, and VKGI which contain the upper 
triangle, the diagonal, and the lower triangle of the 
matrix, respectively. VKGI is only present for nonsymmetric 
matrices. The Matrix VFG contains the global loads, VDLG 
is the solution vector, and VRES is the residuals and reac- 
tions vector. 

As mentioned above, MEF provides various levels of 
output. The quantity of output desired from a given block 
is controlled by a parameter on the block calling card 
(described in detail [Ref. 8: pp. 440-447] which ranges 
from 0 (the assumed value) to 4. The default value provides 
all the information needed to verify the input stream and 
obtain the desired answers while the values 1 thru 4 provide 
various levels of verbosity. Each level provides all that 
the last one did plus additional information, and in some 
blocks levels above 2 have no additional meaning. The 
reader is cautioned against the indiscriminate use of ver- 
bose listings. With larger problems it is easy to create 
megabytes of listing which can even overrun the capacity 
of a hard disk. The best procedure is to decide where ver- 


bose output is needed and to use it only in the required 
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blocks. Using verbosesprintang on thesseleieion Jalemiac 
creates reams of output and is seldom of any value to the 
user. The solution processes have all undergone extensive 
verification, and problems which arise are generally trace- 
able to the input stream. The only exception is when the 
problem requires more than 64 kilobytes of the working 
array in which case the program will most often terminate 
with a run-time arithmetic operation error. In this casey 
further processing will have to be done with the VAX 780 
version. 
2.  Benent S Sup peG cece auine 

The current version of MEF consists of approximately 
7000 lines of code (including comments). Five additional 
elements have been added to make a total of seven elements. 
A summary of the elements is listed in Table IV. All ele- 
ments have been written in French and with the exception of 
elements 1 and 2 produce most of their output in French. 
The user will have little if any trouble understanding the 
results and should consider the experience culturally en- 
riching. Most cf the words which appear in the listings 
are cognates or recognizable from the context in which 
they appear. Time did not permit the translation of the 
format statements. 

The block PREL will require the properties of the 
elements tc be entered as a data card image. The proper- 


ties are specific to the element routine alone, anc must be 
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entered in the order expected by the element routine. Table 
IV summarizes the properties required by each element in the 
correct order. For those elements which require a material 
density property, the property is used in the creation of a 
mass matrix for the solution of eigenvalue problems. This 
property may be omitted if the block VALP will not be used. 
Element 5 is not implemented in this version, and has been 


ierteouc of Table IV. 


Table IV. Element Summary 


ELEMENT 
NUMBER DESCRIPTION REQUIRED PROPERTIES 
1 Eight noded quadrilateral 1) coefficient DX 
for anisotropic harmonic 2) 4 DY 
premmens in il, 2, or 3 3) S DZ 
dimensions 4) specific heat 
Capacity 
2 Eight noded guadrilateral 1) Young's modulus 
for 2 dimensional elasticity 2) Poisson's ratio 
problems 3) 0 = plane stress 
4) specific mass 
eS Six noded triangular 1) Young's modulus 
element for. 2 dimensional 2) Poisson's ratio 
elasticity problems 3) 0 = plane stress 
1 = plane strain 
4 Three noded triangular 1) Young's modulus 
SlOMene Lon 2eadimensional 2) Poisson's ratio 
regions of unit thickness 3) 0 = plane stress 
1 = plane strain 
4) X body force 
Sonpomen t 
5) Y¥ body force 
Cemeonen tc 


6) specific mass 
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ELEMEANT 


NUMBER DEsGRI PAT REQUIRED PROPERT Tae 
E Three noded triangular 1) index for inte- 
plate bending element for Graeienmay 
LSOCIOP1IC. OF GCmenoeEop uc Gauss-Radau (laa 
materials l = least accurate 
Notes: 5 = most accurate 
If the material is i1so- a)» theckness 
tropic properties are 3) l = isetropigs 
5) Young's modulus 2 = erthot repaie 
6) Poisson's ratio 4) location to cal- 
oe 3ja— 70 culate stresses 
Li GigE NOt E@peLc lL = centroid 
5) Die} 2 = corner nodes 
6) D(1,2) 3 = midnodes 
7) Diez 5) -~ 8 ) according 
8) Days) to notes 
where the D(1,j) are the 9) specific density 
bending stiffness 
elasticity constants 
7 Twenty noded brick for 1) Young's modulus 
three dimensional 2) Poisson's ratio 
elasticity problems 
8 Truss element for 2 or 1) cross-section 
3 dimensional problems 2) Young's modulus 
3) density 


3. Running MEF 

To execute MEF as installed on an IBM PC-XT or com- 
patible, simply boot the operating system, log to the direc- 
tory in which MEF.EXE is located, and type MEF followed by 
a carriage return. MEF will respond by asking for the name 
of the command input file. The response may be any legal 
MS-DO5 file name, including a disk drive identifier (for 
example, a:INPUT.DAT). If the response is the MS-DOS 
identifier CON then MEF will expect to receive all commands 


and inputs from the console keyboard. After entering the 


46 


Wiel ym ewitin request the name of the output file. 
Once again, this may be any legal file name including PRN. 
The response PRN will result in the output being directed 

to the printer. MS-DOS pathnames are not supported by MEF 

in the naming of input and output files. After the entry 

of the output file, MEF will begin to process the command 
input file; as MEF processes the input commands it will up- 
date the console with information concerning which functional 
block it 1s processing. 

When MEF is used on a system which does not have a 
hard disk it is best to keep the input and output data files 
On a separate diskette in the default drive, and execute MEF 
from the default drive using a drive designation. For example, 
if the default drive was a: the MEF program could be started 
by typing b:MEF with the MEF diskette in drive b: and a 
Seratch diskette in a:. The reason for this is that MEF 
creates several scratch files on the default drive during 
execution, and there is not much room left on a floppy 
Giskette which contains MEF. MEF will create two scratch 
files for an in-core solution, and three scratch files for 
an out-of-core solution; the names of these files will begin 
wee os SO Entei it is not Mikely they will coimcide»with 
existing file names. 

Once the initial responses to MEF have been made, 
the present version of the code expects all input to come 


from a command file, or the console. Attempting to input 
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directly from the keyboard can be a very frustrating expe- 
rience, and if a mistake is made there is no recourse but 

to begin again. For this reason, it is recommended that 

a command input file be created with a suitable text editor. 
FORTRAN 77 rules apply to the format of the cards. "Thartea- 
entries separated by commas will override the specified 
format, however, there must be no blanks imbedded in the 
line if the format is to be overriden. As can be seen 

from the examples provided in Appendix D either method will 
work, and the user may find it convenient to enter some 
cards according to the format, while other cards may be 
easier to override. 

It is advisable to send the output file to disk 
rather than to the printer. The disk file can be viewed 
and even edited with a text editor prior to printing. sena™ 
ing the output to the printer will simply cause the process 
to be output bound. MEF also uses a 132 character output 
line, and it is advisable to shift the printer to a 17 char- 
acter per inch mode if it does not have a wide carriage. 

The amount of space required to run the problem 
must be of concern to the user until the bugs have been 
eliminated from the compiler. The required number of bytes 


may be estimated using the following formule, 


Space required = (bandwidth) (number of nodes) (8) (2.0) 
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The factor of 2.0 is an empirically determined factor 
used to account for the storage of all tables in the working 
array. Because of the compiler bugs which have not yet been 
circumvented or corrected, if the space required approaches 
64 kilobytes then the compiler/IBM PC capabilities have been 


exceeded, and MEF will probably fail with a run-time error. 
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lil. RESULTS AND CONGEUS ier 


A. SUMMARY 

Chapter I recounted a portion of the history and develop- 
ment of the microcomputer and attempted to list some of the 
reasons that microcomputer based, engineering software has 
been slow to develop. The main reason is that it was too 
difficult to create engineering software on the rather 
limited resources provided by the eight bit microprocessor, 
and limited software tools which existed at the time. In 
addition, the engineering software which was created was slow 
and unwidely to use which hampered its propagation and devel- 
Opment. However, the advent of the sixteen bit microprocessor 
has provided a hardware product whose capabilities are more 
than adequate for engineering applications. This opinion 
1s supported strongly by the fact that the majority of main- 
frame minicomputer systems today are based on sixteen bit 
processor architecture. The major difference between the 
minicomputer and the microcomputer is operating system 
maturity, and processor speed. The speed advantage is 
partially offset by the fact that a microcomputer is seldom 
used to support timesharing applications, and can often pro- 
duce results almost as quickly as the minicomputer burdened 
with the management of timesharing (one must count the time 


spent waiting, not just the CPU seconds). 
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Regardless, the sixteen bit microcomputer has been 
around since 1981, yet there is little engineering software 
available today. The reason is that reliable software tools 
(Operating systems, compilers, etc.) lag the introduction of 
hardware by a considerable amount of time. The premise of 
this thesis was that the necessary maturity of operating 
system and compiler had been achieved, and a combination of 
hardware, operating system, and compiler was chosen to test 
the premise in the specific application of finite elements. 

As stated in Chapter I.B, the purpose of this investiga- 
tion was to implement a general, finite element program on 
a sixteen bit microcomputer, and determine whether the result 
was practically useful. The actual programming and conver- 
Sion of software began in March 1984, and continued thru 
August 1984. During that period two distinct version of MEF 
were installed on the IBM PC-XT and the COLUMBIA MPC micro- 
computers. The first version was a small memory model which 
performed all the functions of the mainframe version but 
was quite limited in the size of problems it could handle. 
This was to be expected, and ale merely a point in the step- 
Wise implementation cf the objective. 

The small memory model was then converted to the current 
version of MEF which is referred to as the large memory model. 
The large memory model is significantly more capable than 
the small memory model in terms of the problem size that can 


be handled. However, as detailed in Chapter II the large 
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memory model is not able to take advantage of the full memory 
available because of the existing bugs in the Microsoft 


FORTRAN 77 Compiler version 3.2. 


Bea Col ers DONS 

Although it was not the intention of this investigation 
to evaluate the hardware or operating systems of the two 
machines, it 1S impossible to write a conclusion without 
mentioning them. Throughout this investigation, both 
systems (the IBM PC-XT, and the COLUMBIA MPC) have functioned 
faultlessly. This observation includes the operating systems 
and the hardware. Both computers have been supported by a 
variety of peripherals manufactured by different companies, 
and neither system has operated in a controlled environment. 
The machines are turned off and on at will, and have received 
only the most cursory. preventive maintenance. Yet, both 
systems have maintained one hundred percent availability, on 
demand, with no time spent at reduced capability. The pre- 
vious experience of this investigator has been with mainframe . 
computing systems, and the reliability of these microcomputer 
systems was totally unexpected. 

At the beginning of this investigation, it was not clear 
that a program the size and complexity of MEF could be con- 
verted to operate on a microcomputer. However, a background 
in computer science and operating systems led this investigator 


to believe that it might be possible. The results have been 
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gratifying on one hand, and frustrating on the other. The 
frustration results from the limitations imposed, not by 
the program, and not by the hardware, but by the immaturity 
of the compiler. With the example of the matrix solver 
shown in Appendix B it is clear that the machine and compiler 
Gem@einatioOn have the capability to solve large problems. It 
is unfortunate that compiler bugs prevent the full realiza- 
tion of that capability with a more complex application. 
However, conversations with Microsoft Corporation indicate 
that a new release of the compiler may be available as early 
as January 1984, and even at this time, advertisements for 
competitive compilers are beginning to appear in periodicals. 
A more objective statement of the results is that the 
largest problem which could be run on the microcomputer took 
less than five minutes from start to stop, and the results 
are comparable to the results obtained from other- sources. 
It is clear that the execution speed and capability of the 
software is acceptable. Therefore, the utility of MEF is 
assured, subject to the temporary restriction of problem 
Size. At this time, MEF 1s an excellent classroom tool, and 
is capable of solving most problems given as academic exer- 
cises in solids and conduction heat transfer. It is also 
capable of handling many problems which are not assigned as 
academic exercises. In addition, because of its modular 


Structure, MEF also provides an excellent teaching tool for 
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the finite element classroom. AS soon as the problem size 
restrictions are overcome, MEF will have far greater applica- 
tion on the microcomputer. 

It 1S important to understand the significance of what 
the ability to create and execute software of this complexity 
and capability (on a microcomputer) can mean to the field of 
engineering in general. If the compiler had been "clean," 
the problems encountered in converting MEF would have been 
minimal. The cost of a microcomputer system is well within 
the range of most small engineering firms, and the increase 
in problem solving capability is even more dramatic than the 
step from the sliderule to the programmable, pocket calculator. 
There iS a wide variety of software available today including 
finite elements, optimization, heat transfer, fluid dynamics, 
electronic circuit design, control systems, etc. The cost 
of computer time has made much of this software unavailable 
to smaller concerns. However, the near future will undoubt- 
edly see the conversion of much of this software to micro- 


computer systems. The possibilities are encouraging. 


C. ~RECOMMENDAZEONS 

The following recommendations are made for future devel- 
opment of MEF: 

1. MEF, as implemented, is primarily a batch stream pro- 
cessor. By that it is meant that the input 1S noninterageae 


and formatted. The facility of MEF would be enhanced by 
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the addition of interaction, or an interactive preprocessor 
to produce the "steering file" (command input file). 

2. The capabilities of graphics to summarize the 
results from any finite element application cannot be over 
stated. In addition, the graphic representation of the 
Structure and finite element mesh is important for the 
detection of errors in the problem definition: Therefore, 
the addition of graphics to MEF would significantly improve 
its capability. 

3. The possibilities regarding the addition of elements 
are almost without bound. However, the addition of a cubic 
solid element (a 32 node brick) would provide significant 
additional capabilities. The addition of such an element 

[oelowpsevide an exact solution for beams (using only one 
ent for node loadings), and an excellent model for 
plates and shells. The addition of such an element would 
allow the elimination of a number of the existing elements, 
at the cost of more memory; the trade off would have to be 


evaluated. 
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APPENDIX A 


CEUSCEOCK  SEEED TEST 


The following Intel 8088 Assembly language progran, 
assembled with the MICROSOFT assembler (MASM), was used to 
determine the apparent speed of the processor, or the loss 
of processor speed due to the processing involved in handling 
the interrupt driven operating system. 

When executed, the program loops for the number of times 
specified. The actual number of times through the loop can 
be determined by multiplying the contents of the BX register 
Meaeoo, 26. iin this application, the result is 10,485,760. 
The program accesses the system clock before and after com- 
pletion of the loop, and computes the elapsed time to the 
nearest seconds The elapsed time is then displayed on the 
screen. The test was done numerous times on both systems, 
and never computed an elapsed time less than 52 seconds nor 
one greater than 53 seconds. 

Clock cycle calculations were computed by counting the 
total number of machine cycles executed between the labels 
WAIT and ENDWAIT. The eight cycles used for initialization 
in the two steps before the label WAIT have been included 
only for the sake of preciseness so that all machine cycles 


Pemween clock accesses were accounted for. The number of 


IN 
~~ 


times through 
error induced 


is ee Madea 


INST RUGLEON 
MOV BX, OAOh 
MOV Tez On 
DEC RE: 


JZ ENDWAILT 


Deore 


JNZ LOOPS 


JMP WAIT 


APParent 


the loop is large enough to insure that any 


by not counting the clock accesses is 


NO. OF STIs CLOCK CYVCHiES NO. OF €¥Y@Gige 


EXECUTED PER EXECUTION IN LOOP 
1 4 A 
al 4 4 
160 2 320 
I XPER InG 16 
159 FAILS 4 Gig 
1048576 Z 2097 i320 
1048560 XFERS 6 16776960 
160 FAILS 4 640 
160 eS 2400 
Total @fock Cycles “Eaeicep 188745140 


Clock SPeed = 188745140 = 3.56 MHz 
53 
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CSEG SEGMENT PARA ‘CODE? 
ASSUME Gevloco, DoscceGqeso ns IGenoo, Eo:NUIninG 
; 
3 
GRE O100H 
PUSH DS ‘Save DS for return to DGS, and 
SUB = AX, AX sout a zero on the stack. 
PUSH AX 
MOV «AX, CSEG ‘Set the DS register. 
MOV DS, AX : 
’ 
; : 
LER «DX, STARTMSG 
CALL  QUTMSG sGutput start messace 
sto screen. 
; 
; 
CALL BEEP ‘Beep terminal bell. 
’ 
3 
CALL GETTIME ‘Reads clock chia and stores 
MOV STARTTM, DX  sminutes and seconds in tmemary 
‘location, STARTTM. 
’ 
} 
MOV BX, OAOh sInitialize counters for delay looo. 
MOV CX, 90h ‘For real run BX=0A0h 
’ 
j 
WAIT: DEC BX sRun around in circles about 
JZ ENDWAIT *10 million times. 
LGGPS: DEC CX 
JNZ LOOPS 
JMP WAIT 
%, 
} 
ENDWAIT 
CALL § GETTIME ‘Read the clock chip and 
MOV STGPTM, DX store in memory location STOPTM. 
; 
; 
CALL Beep sBeep terminal oell. 
; 
3 
LEA DX, ENDMSG 
CALL $QUTMS6 ;Send all done message 
sto the terminal. 
; 
sELAPSED TIME Compute elapsed time. 
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XOR 
MOV 
MOV 
MOV 
CMP 


ADC 
DAA 


MOV 


CALL 
LEA 
CALL 


MOV 
INT 


BEEP PROC 
MOV 


INT 


BEEP  ENDP 


4 

GETTIME PROC 
MOV 
IN 
MOV 


GETT IME 


4 

QUTMSG PROC 
MOV 
INT 
RET 

QUTMSG ENDP 


AX, AX 


BX, STOPTM 
CX, STARTIM 


AL, BL 
BH, CH 


DX, AX 


ASCCONV 


sElapsed time is assumed less thar 
sone minute. 
sClear AX. 


‘Stoo time in seconds in AL 

;if minute has incremented duriric 
sWwalt loop must add 60 seconds to 
‘ston time to compute correct celta t. 
sAll of this works because the clock 
sprovices BCD quantities. 


;Convert elapsed time to ASCII, 


DX, ELTIMEMSG;and output elagsed time, in secords, 


QUTMSE 


AH, 4Ch 
2th 


NEAR 
AH, Och 
DL, 07h 
21h 


DX, O&C2h 
AX, DX 
DX, AX 


NEAR 
AH, 09h 
2th 


PROC NEAR 
SI, ASCVAL+3 


CX, 04 


sto the screen. 


sReturn to DOS. 


sSUBROUTINE to beep the 
sterminal bell. 


sSUBROUTINE to reads system clock. 


;The hours are placed in CX, and the 
slow order count (aporox 18.2 counts 
sper second) in DX. 


sSUBROUTINE to cutput string pointed 
sto by DX. 


sConvert elapsed time to ASCII. 
‘SI points to least sionificant 
sdigit’s storage location. 


sInitialize loop counter. 
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CBECs "eusH CX sSave the lcan count. 


MOV CX, 04 ‘Shift count in CX. 
AND AX, QO0Fh ‘Strip right wost nyoble. 
OR AX, 30h ‘Convert digit to ASCI! character. 
MOY (S13, AL ‘Store the character. 
DEC Sf 
MOV AX, DX 
SHR AX, CL ‘Move the next digit into the least 
MOV DX, AX 
POP CX 
LOOP =—s LBL ‘Significant nybdble. 
RET 
ASCCONV ENDP 


’ 


3 

STARTMSG DB "Begin wait loop’, ODh, OAh, OAh, OAh, ’$? 
ENDMSG DB ‘End wait loop’, ODh, Ofh, ’$’ 

STARTTM DW ? 

STOPTM 8 8=©6 DW 2 

ELTIMEMSG DB "Elansed time in seconds: ° 

ASCVAL DB ’ $! 


’ 


’ 


CSE6 ENDS 


s 
’ 
s 


’ 

STACKSG SEGMENT PARA STACK * STACK’ 
DW = 80 DUP(?) 

STACKSS ENDS 
END 


Gab 


APPENDIX B 


MATRIA. SOBUTION TEST PROGRA™ 


The following FORTRAN program was used to test the 
capability of the machine to.solve a system of equations, 
[A] (X) = (B), whose coefficient matrix, [A], required more 
than 65,536 bytes of storage. The main program requests a 
job name, and the number of equations to be solved. It then 
fills the [A] matrix symmetrically, in banded fashion, with 
the number of equations (NEQ) on the diagonal, and each 
subdiagonal decreased by one more than the previous sub- 
diagonal; the right hand side of the system, (B), is always 
a vector of 100.0's. For example, if the number of equations 


were 5 the program would solve the following system: 


5 4 3 2 I X1 100 
4 5 4 3 2 eZ 100 
3 4 Se 3 X3 = 100 
2 3 4 5 4 x4 100 
al Z 3 4 > <> IOIO 


The program stores the solution and the solution time on 
the disk in a file which is identified as jobname.DAT. In 
addition, the results and solution time are displayed on the 


console. The system is positive definite which guarantees 
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Mace iiomebOCeSSOR GCrbOr COMdLE1On will occur in the solution 
of the system. The number of steps to achieve solution is 
fixed for a given matrix size, and the amount of time to 
achieve the solution is not affected by the accuracy of the 
answers. In short, the only thing which is of interest 

here is being able to run a series of benchmarks which are 
guaranteed to proceed to completion. 

The elapsed time is determined by successive calls to an 
assembly language routine, TICKER, which must be assembled 
separately and linked to the FORTRAN subroutines. The 
routine was added because the Microsoft FORTRAN compiler 
has no function which allows access to the system clock. 

For large systems, which require more than a few seconds to 
solve, the program could easily be set up to signal the user 
to start and stop timing with a stop watch. However, for 
smaller systems, such as: the 25 and 32 DOF tests, the elapsed 
time is too small to determine with a stopwatch. Particularly 
when the results are to be used to predict solution times 


for larger systems. 
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The results of the four test runs are as follows: 


3. 846153846 1538E+00 
“1, 95039431443739E-15 
6. 70872271 0880CE-15 
1, 35094569154 10€-!5 
-4, 0948604 156610E-17 
1.643951 $6645e3€-15 
ce (AS34202 2684E-14 
2. 1610766337S65E-14 
3. 846153846 1539E+00 


TIME 


3. 0303050303030E+00 
5. 3765407995495E-16 
2. 060649603538 7E-15 
6. 76092 /70454854E-15 
“9. 7766604500634E-15 
2. 3465232733079E-15 
1. 2B8006¢543391E-14 
-8. 069449501 3671E-15 
2. 9480798112488E-15 
4, 9194647979880E-15 
9. 7680238081 105E-15 


TIME 


NEG 


JS 
el 


FOR TEST-1. DAT 
The Solution Is 


—- CSS ES SE Se — 
SoS aS SS SS SS SS SS See 


6. 9269499334349E-15 
6. 9501601 78656 1E-15 
-1. 267840806S005E-15 
4, 4950084107864E-15 
7.411934¢420388E-15 
6. 7101991 3S8120E=15 
-1,9175192891666e-14 
-9, 989768213624sE-15 


205767 MINUTES 


FOR Te5T-2. DAT 
The Solution is 
2, 8196140307940E- i? 
8. 658348199z8825-16 
7. 96858165051 655-16 
2. 0326481 7850325-15 
3. 88271 07781548E-16 
1. 288303281 4559-14 
-3, 909845055 74092-15 
2. 139934e284950E-14 
2. 29821 948508395E-14 
2. 451 7690154337E-14 
3. 0303030503030E +00 


~ 11800 MINUTES 


9. 8183935461887E-15 
-7..3976311644819E-15 
4, 817471653G773E-15 
-5. (056834 52844cE-15 
-7. 3233039075074E-15 
-2. 08469! Ss6500SE-14 
“2. 69645971 S02Z94E-15 
“2. 1Sg85961976026E-- 4 


3.162848 S0S5404E-16 
“2. 8s4e88es Jo /e2- 1 
2,415) sopeessees—.e 
we OS4 7G 14: S7HQE-15 
ab 


yea sGGts 


29320! S905GE-16 
24 52855474 FOE 24 
a aN tS 
Bc QBBOOOt Sc 74-14 
OL6iS154575-2+ 
165057042! 732-24 


13 oe ro eS ue 
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9. HO9I0NIIONSIE-01 
6. 6510189646372E-16 
6. 0231600128 169E-15 
-2. 009463712S933E-15 
-2. B68 798948S966E-16 
-1. 1568290666615E-15 
8, 72078404633 78E-15 
1.639041 1200061E-15 
-1,.20049446 7556cE-14 
8. 1980386773411E-15 
-4, 1109406779441E-16 
1, 284396273e201E-14 
4, 19750339855025E-15 
2. O954050800393E-14 
3. 82767 14669663E-i 5 
“9, 3233129! 78eB2E-15 
3. 402378990 1856E-14 
3. 4919387864296E-15 
- 1.97361 78267955E-14 
-2.5691 46521 7669E-16 
-9.8171447719577E-15 
1. 738632 3809354E-14 
7. 48104535 70045E-14 
-5. 2844278730221 E-15 
-4, 929609201 3141E-14 
3. S01 7426 S86598SE-14 
1.376871 S5958846E-14 
-5, 958866571 8596E-14 
“4, 7976771 901982E-14 
1.0906959678161E-14 
2. S084307311326E-14 
3. 0017140084367E-15 
3.694 18301 33710E-14 
9. 9009900990098E-01 


TIME = 


NEG = 


FGR TEST-3. DAT 
The Solution fs 


9, 9493377 /95705E-3 7 
3. 16022806 70458=-: 
-7, 946075770401 1E-15 
2. 45338405c8452E-15 
-1.4755330610034E-15 
1.906783¢2¢71187E-15 
-1.2381694833975E-14 
~SreUU secon lca 
6. 64 72608535533E-18 
-1,0¢101865197365E-14 
9, 538268612441 3E-1 
~1. 11936526559344=-14 
6. 454639054.39846£-15 
-9, 005208 7598773=-15 
1. 280698830 7750E-i4 
-7, 723266841 339203e-16 
-3, 041 76983545392E-14 
-2, 6434621 78e763c-15 
3. 9992584 196400E-15 
=), 3820477797203E-15 
2%, 826762324 16535E-14 
2. 175392665738 7E-15 
“3. 7iei2e7992951 gE-14 
3. 2214384665882E-15 
2. 63274761 94804E-14 
-5. 080435804088 70c-14 
-7. 565359007 78292E-14 
4, 7481 343640073c-14 
-5. 4605800567770E-15 
—4, 94749405392405-14 
-7. 4740395 10LS65iE-14 
-7,. 2903626883704e-14 
—8, 2333428774833E-15 


3.47767 MINUTES 


100 


—§, 8540748249: 0028-16 
~2, 18333653489562-16 
Wee se sos laeses=—. 0 
-1. 478501 chigk ir 
5. AS04054 i GE 7E-15 
3, 0463 cw =o 
9. 875955962446 15-15 
1. 1656030987822E-34 
—4, 15983916 72334E-55 
2. (056468721 892-15 
—1. 10860249752445-"4 
—B. 81453737861 80e-16 
»6955941176e655-! 4 
20414565925 144e-14 
5. 847048!06:0875-35 
—2,4190569505!432-14 
oo. 1CH05i 20362e-.5 
1, 954256092838925-14 
ee reeude (subBece—i 0 
1. $9285362994865-{5 
—2,635619150380625-: 
-5. 403818 7890453=-14 
Geer 7en0desee 
2. 866590621 5780=2-14 
“1. 746321 737534 iE-5 4 
4, 831154563381 25-1 
De lds (o10949042E=.4 
1. 42548479833592E-15 
4, 91 50962oz 2c 4eo—_ 5 
2, JOSS07 89302 142-14 
So. Ces 11 1S10772E-74 
1. 4339852851 7002-14 
1. 763 4612068632-i5 


= 


on 


a 
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4.9791243781094E-01 
4, 3243592798550E-17 
1. 928799/3eS5250E-16 
-2. 93972407 15880E-16 
3.0684193113147E-15 
2. 2367031680076E-15 
2. 342327473 7468E-15 
29091 33923899E-15 
1. 481534731 1197E-15 
1, 6098180082962E-{5 
4,114252751830ek-15 
-1..3439971017726e-16 
3. 6405878180938E-15 
-7. 4204493566424E-16 
-9. 9831197567108E-15 
“1. 1138016247761&-14 
~1.2731667911900E-14 
1. 1129991569071E-14 
7, 8544510136265E-15 
-1,8908238702693E-14 
-2. 69844e3e6/7922eE-15 
-1.2559422099201E-14 
8. 9192780343309E-15 
1. 683102841 7556-14 
“1. 4528803565360E-14 
-4,0419987736125E-15 
6. 7143807187873E-16 
-4, 383684¢898259E-14 
“1. 7159643252 139E-14 
9. 304 1349490937E-15 
“5. 195640346299 1E-14 
“1, 76c58e84940965-14 
8. 2644981147134E-15 
-1. 35685621 8e020E-14 
-2. 22 769788599SBE-14 
-3. 1446321 094405E-14 
-7,6312s55e214359€-15 
{. 16938707431 78E-15 
-2, 0021610665137E-14 
8. 894933155 7590E-14 
4, 8018624008533E-15 
2. 3609496951757E-14 
-5. 44177491680 70-15 
~9, 8757298592470E-14 
4,27988777247e1E-15 
7. 37059480197 14E-14 
4. 1742722696338E-14 


FOR TEST-4. DAT 
The Solution is 


8. 19407157699442-16 
4, 6230247663599E-16 
-4,64077980437202-16 
-1.975906761 7456e-15 
-2. 716069041276/7E-15 
-7. 8610974959¢54e-16 
-1. 2269976 148990E-i9 
4, S049595603003E-15 
-2. 88748307671 5¢E-15 
-6. 768116760500S=-16 
. Jovdscc /12560E—16 
-1.90247340036!e3t-i5 
-2. 6210766726808E-15 
2. 098498580328 745-15 
-1,0008036406686E-16 
9. 9029445306656E-i 
$,904118482077 1E-15 
-9. 4719234619579E-15 
i. 9759929106076E-15 
2. We0628 16c063E-14 
8. 4713928861782E-16 
1. 9484553485<¢5cE-14 
~2. 9080259039352E-15 
-3. 4375309 123280E-15 
1.2599790630863E-14 
-9, 789295 7143977sE-16 
-3. 291424 1639296E-25 
4, 07639823589 19E-14 
1. 4877203649436E-14 
-2. $408226882068=-14 
3. 1699186457967E-14 
3. 5068528304064e-1 
“9. 4712634942109E-16 
2. da/sac052e779E-13 
3. 44 sB8SeSn2252E-14 
~1, 8711978854088E-!5 
-1.56914296520¢8E-14 
1. 1510062773483E-14 
2. 44492988081 06E-14 
6. 04293882S05522-i 
-3.6974325184603e-14 
-4, 8371859447327E-14 
1. 955083997 1006E-15 
J. 7982607852308E-14 
~2. 4817962537530E-14 
-1.6894473575267£-14 
1.501512544102se-14 


“6. $022 704 102S503E-16 
-+, 5094686656488E- "6 
1, 27362691 770402-.5, 
1. 9869995105 2548-75 
—3. 2300521 46059! Ese 
1. 01406589826 752-13 
9, 4310203525 468-26 
—4, 268140159794 /7E-16 
—4, $3481567i24e68-.6 
3. 8024941 5704ee=-15 
—4, 2320855961 4092-26 
Se gued4 (20092 7 sale 
~4, 136 /8S66925098ae7 
1.40050440046592-15 
4, 3987325, 457b22-i 5 
8, 022094648e954E-15 
“169020569857 Saeo i 
-4, 043600 s309c5900e-19 
~en 205650: 121 dele 
—¥79470956/ 1679-72 
6. 0S0Si2996S9462-<5 
-{1, 58036253846 1c8-24 
“1, 1940290293 5942-74 
9, 82431 7560caageal5 
-1, £659838795455E-34 
8. 89054877995025-15 
2. 09764085 760602-14 
1, 44946340442 72E-14 
491292050677;6=-15 
S$. 4803 7309303495-14 
2, 460563829: 7225-25 
=, guenoJesdeoadeste 
7. 705i C44e580225-26 
leboesnoet se 7 a—. 


Malte 


044098366: 465--°6 
c, 1669225141 s205-14 
1, 8357806 71737795-3 4 
8. 209651 38205255-15 
-4, B05261 14424445-24 
1. 306817487008s2-14 
4,02565251 74 7862-3 
7. 3210921 225879=-15 
9. (rac s Joga se, 
3, $834614231439e-i5 
-2. 2018042934005c-14 
-§. 300798216 9035=-14 
-7, B16030S98i G2cE-15 
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=2, 28.3001 19640915-14 
~1. 0022774539354E-1 3 
43343646624 364E- 14 
7.09398 13268461E-15 
2, 8251919858608E-14 
~3, 2039878018689E-14 
-1.97647435910¢8E-14 
~4, 27168617 73601E-15 
1. 1403791 906399E-13 
-4, 2453076343260E-15 
2. 9451463111826E-14 
-6, 8346372628696E-14 
~5. 7453411423013E-14 
4, 14978549381 18E-14 
6. 99639301 72649E-14 
2. 6881 $2¢987547E-14 
~1,6406994082191E-14 
~7, 9361942476198E-14 
~9. 1658330019724E-15 
8. 4360246180512E-14 


TIME = 


1, 268926393986842-14 
1.1974433269464E-i2 
—S ress 20092 156E-14 
2. 0012673956105E-! 
“6. 4663404204 362E-12 
1. 1309779543399E-14 
2. $657861537963E-14 
-1.8147460594876E-15 
5, 3/41573151 S03E-14 
1. O3625Se985526E-15 
“2. 88 70848145435e-14 


7, 3991561334720E-14 


1, 84133942452915-14 
5. 921067925 1088E-14 
8. 364356605 7255E-14 

4, 705409028 8465E- 14 

1, 083305824 952-15 

1. 33782735230445E-i5 

8. 0868721 046333E-14 

4, 9731243781 0928-01 


27.96250 MINUTES 


b, 00402501 iNe=-14 
064238 /6688425-- 24 
047551003104 5E-1 4 
Meas ta saase-— 
mace as J0dc 901 1=-14 
» 305640466578 5-24 
—i,2967799396804--!4 
-4,0141086948556--14 
4, 24698S¢ 15355 772-14 
—8. 82250454746 785-54 
SesiUe coos Jb/2s—e 
4.4597 262181 5062-15 
2 ileeee oe 
—¢. 62462450891 si2-2 
—6. 09644560824e62-15 
6. 1351966904634¢-14 
6. 605392492665=-14 
= jens. 0482647 (SS9E-1 5 
~9, 841 771451900482-14 


i i 
eer oe, eee 


~s 
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=a == SS Se aS ee 


$LARGE 
$NOFLOATCALLS 


10 


100 


998 


PROGRAM SOLDP 
IMPLICIT DOUBLE PRECISION (A-H, O-Z) 

INTEGER*4 ITIMEL, ITIMEZ, CENT! 

DIMENSIGN (40000), B(200), JOBNAMZ (2) 
CHARACTER*12 IFN 

REAL #4 TIME 

OPEN (5, FILE=' CON’ } 

OPEN (6, FILE=" CON’) 

WRITE(6,#) ° weeeeex ENTER A JOBNAME (8 CHARACTERS MAX) #2! 
READ(S, 10) JOBNAME 

FORMAT (244) 

WRITE(6,#) ° #eeexxe ENTER THE NUMBER OF EQUATIONS +eeeexe? 
WRITE(6,#) ? (MUST BE 200 OR LESS IN THIS VERSICN) 
READ(S, #) NEG 7 

RHS=100. 0D0 

IEXT=' DAT’ 

CALL FNAME (JOBNAME, TEXT, IFN) 

OPEN (2, FILE=IFN, STATUS=" NEW , FORM=’ SCRMATTED! ) 
NEGM1=NEQ-1 

DO 100 I=1,NEGH! 

B(1) =RHS 

II=(1-1) NEG+I 

AC TI)=NEQ 

IPL=I+1 

DO 100 J=IP1, NEG 

IJ=(J-1) #NEG+I 

JI=(i-1) #NEDHI 

ACIJ)=NEG-J+! 

AIT) =A) 

CONTINUE 

B(NEQ) =RHS 

NEONEG=NEGENED 

A(NEQNEG) =NEQ 

CALL TICKER(ITIME!) 

CALL ELU(A, NED} 

CALL SLVB(A, 5, NEG) 

CALL TICKER(ITI¥=2) 

CENTI = ITINES - <TIME! 

TIME = FLOATICENTI? / 5000. 

WRITE(2, 996) IFN 

WRITE(6, 998) IFN 

FORMAT (T28, °FOR *, A12,/, 

t T28,'The Solution is’, /,728, {5¢1H=)) 
DO 200 I=1,NEQ,3 
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JJ=1 
JJP=JJ+2 
IF (JJP.6T.NEQ) JJP = NED 
WRITE(2, 1 (1P3EZ2. 13)9) (BCS), Jed, 007) 
WRITE(6, ’ (1PSEQ2. 133!) (H(X), 422d, 2I2) 

200 CONTINUE 
WRITE (6,999) TIME 
WRITE (2,999) TIME 

999 FORMAT(/,5X,’ TIME = ',F12.5,! MINUTES’, //} 


WRITE(2,4) ’ © NEQ =",NEG 
WRITE(6,#) 7 = -NEQ =", NED 
CLOSE (2) 

STOP 

END 


SUBROUTINE ELU(A, N) 
c 
CA HEHEHE THE HEEIHERIE te thor LE EEEEKREKKERHRKRERE LEAKE E 


G a 
C THIS SUBROUTINE DECOMPOSES MATRIX A INTO A LOWER UNIT % 
C TRIANGULAR AND AN UPPER TRIANGULAR MATRIX. THE ORIGINAL MATRIX + 
C AIS REPLACED BY THE TWO TRIANGULAR MATRICES. THE DIAGONAL S= + 
C THE LOWER MATRIX IS NOT NEEDED SINCE [7 'S 8 UNIT TRIANGULAR # 
C MATRIX. THIS IS A MODIFICATION OF A SUBROUTINE WelTTEN IN * 
c 65. ‘ 
e + 
(OHHH HHH HHH EEE EEE EEE Ra E> 
L x 
u COPYRIGHT (C) BY GILLES CANTIN + 
os MONTEREY, CALIFORNIA, ¢4 JULY 1984. x 
¥ 


AHH EE HHH THE SHH SEEGER ES to ere ett cee 
c 
IMPLICIT DOUBLE PRECISION (A-H, 0-Z) 
DIMENSION A(1) 
NML=N-1 
DO 100 K=1,NM1 
KPL=K+1 
KK=(K=1) #N+K 
AKK=A (KK) 
DO 100 1=KP1,N 
IK={K~1) #N+] 
G=-A(IK) /AKK 
A(1K)=6 
DO 100 J=KP1,N 
1J=(J-1) 4Nt1 
KJ=(J-1) #NtK 
100 ACIJ)=AC1J) +840 (XJ) 
RETURN 
END 


oo 


SUBROUTINE SLVB(A, 8, N) 


i. 

CHE THEE EEE EE EEE 
E ¥ 
C THIS SUBROUTINE DOES A BACKWARD SUESTITUTISN SOLLOWED BY A ¥ 
C FORWARD SUSBSTITUTION OF B INTO A, WHESE A YAS ALREADY BEEN “ 
e DECOMPOSED BY A CALL TO ELU. THE VECTOR B I5 DEST=Z Y= AND ¥ 
E REPLACED BY THE ANSWERS TO THE SYSTEM CGF LINERR ECUATIONS. + 
C 4 
CHIH EEE EIGHT: FI tee oe 
fF ¥ 
C COPYRIGHT (C) BY GILLES CANTIN ¥ 
C MONTEREY, CALIFORNIA, 24 JULY 1984. ¥ 
C % 


Be Hee hk i GH Sith ih EE EE REED ttt ort te te eet 
c 
IMPLICIT DOUBLE PRECISION (A-H, 0-2) 
DIMENSION A(1),B(1) 
NMI=Ne1 
NPI=N¢t 
DO 100 K=1, NMI 
KP1=K+1 
BK=B(K) 
DO 100 I=KP1,N 
IK=(K-1) #N+1 
100 B(I)=B(1)+Q(1K) #BK 
; NNENEN 
B(N)=BIN) /A(NN) 
DO 300 K=2,N 
I=NP1-K 
Jt=I+1 
BI=B(1) 
DO 200 J=J1,N 
1J=(J-1) #N+I 
200 BISBI-A(1J)#B(2) 
B(1)=B1 
11= (1-1) #N+1 
300 B(I)=B(1) /A(I2) 
RETURN 
END 
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SUBROUTINE FNAME (IGENAME, EXT, FN} 
C 


CE FE EHH EEE EEE EH SE EEE EK EEE EHH E HR ER EER EEE EE EE EE 


C ¥ 
c THIS SUBROUTINE TAKES AN ALSRANUMERTC CGEARYE CONTAINED iN i 
EG THE ARRAY JOBNAME(2) AND CONCATENATES IT WITS THE EXTENSION % 
GC NAME CONTAINED IN EXT AND RETURNS TEE COMMCSED © IL= ANAKE wWiT= * 
C A PERICD SEPARATING TEE FILE NAME AND FiLr EXTENSION. Txt ¥ 
C COMPLETE NAME IS RETURNED LEFT JUSTIFISD IN THE ARRAY =A(3) « 
C THIS VERSICN TAKES ADVANTAGE GF FORTRAN-77 AND SEOUL B= * 
C MACHINE INDEPENDENT. IT HAS WORKED ON THE VAX/780 TRE * 
C APOLLO MODEL DN/300, AND THE IBM PC, * 
& % 
(HHH HEHEHE EE HEHEHE EEE TE 
C t 
¢ COPYRIGHT (C) BY GILLES CANTIN ¥ 
C MONTEREY, CALIFORNIA, 24 JULY 1984. + 
C * 


RH HEHEHE HEHE HHH HE EEE EEE IR RR ee 
C 

DIMENSION JOBNAME(2),FN(3), JJGB(2), FFN(3) 
CHARACTER#! JOBCH (8), FNCH (12), EXTCH(4) , BLANK, PERIGD 
EQUIVALENCE (JJOB(1), JOBCH(i)), (EEXT, EXTCH(1)), (FFN(1) FNCH(1)) 
DATA BLANK/! '/, PERIGD/!.'/ 
DO 10 [=1,4 

10 EXTCH(T)=BLANK 
DO 20 1=1,8 
JOBCH (1) =BLANK 
DO 30 I=i,!2 
FNCH (1) =BLANK 
DO 40 I=1,2 
JJOB (1) =JOBNAME (1) 
EEXT=EXT 
EXTCK (4) =EX7CH (2) 
EXTCH (3) =EXTCH (2) 
EXTCH(2) =EXTCS(!) 
EXTCH(1)=S8eRIGD 
DO 30 1=1,6 
IF (JOBCH(1). NE. BLANKA) Il=] 

90 =FNCH(I)=JOBCK (7) 
IL=II+} 
TH=IL+3 
DO 60 I=IL,IH 
II f=I-1] 

60 FNCH(I)=EXTCH(TII) 
DO 70 I=1,2 

70) -PN(I)=FFN(T) 
RETURN 
END 


vel 


6 
; 
6 
; 
6 
‘ 
6 
; 
; 
; 
‘ 
6 
; 
’ 


a 
4 
a 
4 
a 
} 
a 
4 
a 
4 
s 
4 


DATA 
DATA 


SUBROUTINE TICKER (T: IME) 


THIS IS AN 8088 ASSEMPLY LANGUAGE RDUTINE 
ADAPTED FROM A PROGRAM WRITTEN BY W. CLASS OF 7+E 
BOSTON COMPUTER SOCIETY, ONE CENTER PLAZA, BOSTON, 
MASS 02108. THE GRIGINAL VERSION wAS FOR XICROSCFT 
FORTRAN V3.1, AND WAS PUBLISHED IN EYTE ¥GSAZINE, 
FEB 1984. THIS VERSION HAS BEEN MODIFIED 76 
CONFORM TO THE CALLING CONVENTION FOR #ICRCGSOF7 
FORTRAN V3. 2. 


AS IN THE VERSION WRITTEN BY CLAFF, THIS VERSION 
EXTRACTS THE BCD TIME FROM DUS, AND RETURNS THE 
RESULT TO THE CALLING PROGRAM IN CENTISECONDS. 


SEGMENT PUBLIC * DATA’ 
ENDS 


DGROUP GROUP DATA 


CODE © SEGMENT ' CODE? 
ASSUME CS:CODE, DS:DGROUP, SS:DEROUP 
PUBLIC TICKER 
TICKER PROC FAR 
PUSH Bo 
MOV BP, SP 
PUSH AX 
PUSH BY 
PUSH CX 
PUSH DX 
MOV AH, O2CH 
INT 021H 
XCHE CX, DX 
MOV fi, CH 
MOV BL, 100 
MUL BL 
MOV CH, 0 
ADD CX, Ax 
MOV AL, DH 
MOV BL, 60 
MUL BL 
MOV DH, 0 
ADD AX, DX 
MOV DX, 0 
MOV BX, 6000 
MUL BY 
ADD CX, AX 
ADC DX, 0 
LES BX, DWORD PTR [BP+63 
MOV ES: (BX2, CX 
MOV ES: (BX+2], DX 


2 





TICKER 
CODE 


POP 
POP 
POP 
POP 
POP 
RET 
ENDP 
ENDS 
END 


DX 
CX 
BX 
AX 
BP 


Fes. 


BePENDIX C 


FUNCTIONAL BLOCK DIAGRAMS 





WVYOVIC MOOTH TVNOILONOA TIV-YdadA0 


CNH 


LAOO dOLs 


GCuvVo 


GQVial 


NOLLV ZI 


~TIVILINI 





FUNCTIONAL BLOCK COND 


iS 


COOR 


BLCOOR 


ESPACE EXCOOR 
em 


FUNCTIONAL BLOCK COOR 


76 


EXDLPN 


ae 


FUNCTIONAL BLOCK DLPN 


dal 


FSP ACE EXPREL VIDE 


FUNCTIONAL BLOCK PREL 


78 


FUNCTIONAL BLOCK PRND 


79 


Wald MOOTE . ‘IVNOILLONOA 


SINGHANATH 
unsere eos nara 
craoot ||| wraaax xen 
Aw Taxa HOVdSH 


AW 1a 1d 


NATH, 


SO LC 


ESPACE EXSOLC 


ERREUR 


FUNCTIONAL BLOCK SOLC 


SOLR 


EXSOLR 
ASFG 


ALL 


FUNCTIONAL BLOCK SOLR 


82 


WNIT MOOTH “IVNOLLOND4 


KD 


STORILVA 
ee NOLLN'10S TVHOTD 
LONULSNOD 

WNITXG qOVdSH 


ANIL, 





8 3 


SHOILVAN ‘TVHOTS HO NOLLONULSNOO OL NOAWOO NOLLONOA 





Wa TH Td THSSV DAGON Wa TH Td 
GSHuSsv) | DASV CVaYOSV 


SHVIULVN TVEOTD LONULSNOO 





NOLLN'TOS GHL ONILNI4d GNV NOILNTOS HHL OL NONWOO SNOILONNA 


NO TOW 
StAdud| |GSdeadd| | TOSUd 


NOLLOA'IOS LNId NOLLO'TOS 
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Q(NVI MOOTH ‘IVNOLLONONA 


RD 


XSIG NO 
SHOILVN 
TVEOT9 
LONULENOD 









NOILOTOS ysIqd NO 
LNTad NOILNTOS 
GQNTXa HOVdSa 


(ONT 


36 


MSIG NO 


SHOIMLVA TVYGO1ID AO NOILONULSNOD OL NOWWOO SNOLLONNDA 





SINGAGTS 
TIV 


CSHasv aDyst 


MSId NO SHORLLVA 'TVEO1D LONULSNOO 





Aad TH Td 
GCVYOSV 
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NOLLNTOS MSIG WHL ONILNTYd CNV 
MSIQG NO NOLLATOS qHL OL NONWOD SNOLLONNA 


TVOS 





NOLLAVIOS 


NOLLAIOS LNId 
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NEIN SMOOTH ‘IVNOLLONOA 


LIXa) 





NIPINXH HOVdSH 


NOTIN 


89 


ONIINIYd ANY ‘NOLLNIOS ‘ATENYSSY UVANTINON YOU SNOLLONNA 


SLNGAG Ta 
TIV 


GING TH | |NATHCY AWTWTd | =|. THSSV 
TVOS 


TOS [VW LINI IMHNSV 


NO.LMAN 






NOILLA'TOS GNV ATENHSSVY AVANTINON 


0) 


dWaiL MOOTH WVNOLLONNA 


or ie Gieey 


ONTLNTYd 





xianassy | | |AWUON ||| TOSUd 
anaaxa HOVdSa 


dW AL 


Sil. 


UNSTEADY ASSEMBLY AND SOLUTION 


KULER 


SCAL 
ASSEL | | DLELEM| | RDELEM| | ELEMLB 
| ALL 
ELEMENTS 


FUNCTIONS FOR UNSTEADY ASSEMBLY, SOLUTION AND PRINTING 


oi2 


ATERASSYV 





dIVA MOOTH ‘IVNOILLONNA 


TOS LIX 


CIVA 


23 


ASKG ASMG 


MODFG ASSEL 





ASSEMBLY FUNCTIONS FOR EIGEN VALUE PROBLEM 


94 


APPENDIX D 


Sat eeeenObLPMS AND SOLUTIONS 


Conduction heat transfer problem for comparison with 


the results of Dhatt and Touzot 


concrete plate 





d=d =d_ = 1.4 w/(m °C) 
Ge = 2-03) x 10° 3/(m° oe) 
constant heat flux on inside = | 
The distributed boundary condition on the inner circle 


is replaced by consistent concentrated nodal values: 


nodes 1, 17 = 0.6545 
nodes 6, 14 = 0.2618 
node 9 = 0.1309 


The consistent nodal values are arrived at as follows: 


* 
0.6545 = 74 

as 
0..2616.= é 
021,309" 


eZ 


In the analysis, the double symmetry allows only one quarter 


of the plate to be considered. 


96 


F.E.M. 3. 
G. TOUZOT, &. DHATT 





MODIFIED BY 
REHE E. RUESCH 
IMAGE OF DATA CARDS 
COLUMN NUMBER 
CARD 1 2 3 4 5 6 7 B 
NUMBER 1234567890 1234567890 1234567890 1234567890! 234567890 123456789012345678901234567890 

1 COMT 

2 HEAT TRANSFER IN A PERFORATED SGUARE PLATE 

3 SAMPLE PROBLEM TO COMPARE RESULTS CF MEF ON THE IBM PC 

4 WITH THOSE GF THE AUTHORS, DHATT AND TOUZOT 

5 

6 COOR 

7 Ste 1 wieeg.5 OS 

g 1 0.0 {0 0.0 5 0.0 3.0 0d 

9 6 0. 3827 0.9239 0.0 8 1.5 3.0 0.0 

10 9 0.707 0.707 0.0 13 3.0 3.0 0.0 

i! 14 0.9239 0.3827 6.0 ~ 16 3.0 bad 0.0 

12 17 1.0 0.0 0.0 21 3.0 0.0 0.0 

13 0 

14 COND 

15 1 

16 13 16 al 

17 0 

{8 PREL 

19 1 4 
20 Piss 1.4 1.4 2, O3E6 
21 0 

22 ELEM 
23 4 § | 

24 foe? ele | lie i Ge «=O while «67 eel 
25 Feces a 7 att  f2 15 8 5. 4 
26 0 
27 SOLC 3 

2B 1 0.06545 
23 Laer? 

30 2 0.13093 
31 9 


oF 





oe S$ UiconG 

$3 6 14 

JA 0 

39 LINA 

6 I 

37 STOP 
CARD 123456 78901234567890 1254967890 i 23456 7890123456 7890123456 7890! 2345678901 234567850 
NUMBER 1 C 3 4 a 6 q 8 


COLUMN NUMBER 


END GF DATA 


COMMENTS 


a Se ee 
= ee ee ee 


HeAT TRANSFER IN A PERFORATED SQUARE PLATE 
SAMPLE PROBLEM TO COMPARE RESULTS OF MEF ON THE IBM PC 
WITH THOSE OF THE AUTHORS, DHATT AND TOUZOT 


INPUT OF NODES (M= 0) 








MAX. NUMBER GF NODES (NNT)= le 

MAX. NUMBER OF D.G.F. PER NODE (NDLNY= = I 

DIMENSIONS GF THE PROBLEM (NDIM= 2 

COORDINATE SCALE FACTORS . (FAC)= .SQGQOE+00 .SOQ000E+0O . LOGQ0E+01 
WORKSPACE IN REAL WORDS (NVA) = ZU0GO 


INPUT OF BOUNDARY CONDITIONS (M= 0) 


BOUNDARY CONDITIONS CARDS 


4}}) 1000000000 .GOOQOUE+H)I0 .QQ000E+00 .O0000E+00 .OGQ00E+G0 .Q000UE+IO .QQOOCE+0G .0Gvus+00 
)d))) 13. 16 6©2l060ClC ci ase CO iO tC eee eee 
43>) 0000000000 .OQ0000E+00 .Q0G00E+00 .CO000E+00 .Q00G0E+00 .O00000E+00 .0000GE+00 . CO000EtU0 


TOTAL NUMBER GF NODES (NNT)= el 
TOTAL NUMBER OF D.O.F. (NDLT)= 21 
NUMBER OF EQUATIONS TO BE SOLVED (NEG@)= 18 
NUMBER OF PRESCRIBED NON ZERO D.G.F. (NCLNZ)= 0 
MUMBER OF PRESCRIBED ZERO 0D.0.F. (NCLZ)= 3 
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TOTAL NUMBER OF PRESCRIBED D.Q.F. 


NODAL COORDINATES ARRAY 


NO ODL. 


on Om COA &e & Tn = 


Roost nwa paorwe sS 
Won Om cA ese OF fo © WZ 


1 
| 
| 
! 
1 
! 
1 
! 
1 
! 
! 
| 
| 
| 
1 
! 
1 
! 
! 
! 
! 


nw 
oa 


x Y 


.OOO00E+00 .SO0000E+00 .00000E+00 
OOOOCE+IO . 7S000E+00 =. OOQO0E+00 
OOOOGE+00 .10000E+01 .00000E+00 
QOOOGE+00 .12S00E+01 . GOQO0E+00 
GOOOCE+00 .1S000E+01 .QQ000E+00 
eAJISSE+00 =. 46195E+00 . OOOU0E+00 
e4706B8E+00 .98097E+00 . 00000E+00 
« TOOOCE+00 «=. LSQG0E+01 =. OQ00E+00 
@SOSS0EHOO =. SHSSOE+OO =. 00000E+00 
64013E+00 .64013E+00 . COOO0E+00 
F2H7SEHHK =. 9267DE+00 . O0000E+00 
eACIS4E+O1 .12134E+01 . QO000E+00 
~LSQQ00E+01 .1S000E+0i .00000E +00 
eAB1ISE+00 = IFISSE+HOO $=. QOOQ0E+00 
~98097E+00 .4/7068E+00 .00000E+00 
~1S000E+01 =. 7SQ00E+00 §=. QOOOOE +00 
XOOOOEHHKD =. O0000E+00 . 00000E+00 
« TQ000E+00 =. QO000E+00 .O0000E+00 
~L0000E+01 .Q0000E+00 . 00000E+00 
~1ZSO0E+01 =. QO000E+00 . OO000E+00 
e1S000E+O1 = .QQ000E+00 . 00000E+00 


INPUT OF ELEMENT PROPERTIES (M= 0) 





NUMBER GF GROUPS OF PROPERTIES 
NUMBER OF PROPERTIES PER GROUP 


CARDS OF ELEMENT PROPERTIES 


}d))) ! 
>>>) 0 


~14000E+01 .14000E+01 .14000E+01 
OCQOOGE+00 .0O0000E+O0 = .00000E+00 


INPUT GF ELEMENTS (M= 0) 


MAX. NUMBER OF ELEMENTS 

MAX. NUMBER OF NODES PER ELEMENT 
DEFAULT ELEMENT TYPE 

NUMBER OF GROUPS OF ELEMENTS 
INDEX FOR NON SYMMETRIC PROBLEM 
INDEX FOR IDENTICAL ELEMENTS 


(NCLT)= 


EQUATION NUMBER 


(NGPE) = 1 
(NPREV= 4 


« COS00E+07 
 OOOOOE+GG 


(NELT) = 
(NNEL) = 
(NTPE) = 
(NGRE) = 
(NSYiM) = 
(NIDENT) = 


9 


P= gee 
—- 2 OW on mon ese OJ Ms 


$f ee ee 
mo to Po 


ee pe 
on mm 


J 


1 
& 


Oo - CH LS 


aaa 


C 


3 


(NEG) 


00 .0Q000E+00 


ELEMENT : 1 TYPEsst Nople 8 OGL F a: 
CONNECTIVITY (NE) ! 6 3 
ELEMENT : e TYPE: 1 N.P.: 6 D.O0.F.: 
CONNECTIVITY (NE) 9 14 17 
ELEMENT : 3 TYPEs 1N.P.: O8D.0.F.: 
CONNECTIVITY (NE) 3 ot 


ELEMENT : 4 TYPE: 1N.P.: 8 D.OF.: 
CONNECTIVITY (NE> t1 #15 19 
MEAN BAND HEIGHT= 5.3 MAXI MUM= 
LENGTH GF A TRIANGLE IN KG 
NUMBER OF INTEGRATION POINTS 
INPUT OF CONCENTRADED LOADS (m= 3) 
CARDS OF NODAL LOADS 
¥>>>) 1 .69450E-01 
»>)>) 1 ey 0 0 0 0 0 0 
»>>>) € .13090E+00 
yy) 3 0 0 0 0 0 0 0 
y>))) 3 .c6180E+00 
y>>)) 6 14 0 0 0 0 0 0 
»>))) 0 .Q0000E+00 


TOTAL LGAD VECTOR 
»BO4S0E-01 .GOO00EHNO . OOOO0E+00 


OOQOCEHHO .QQOQQ0E+00 . 26180E+00 


ASSEMBLING AND LINEAR SOLUTION (M= 0) 


INDEX FOR RESIDUAL COMPUTATION 
ENERGY (ENERG)= . 42e633E+00 





ABSOLUTE VALUE GF MINIMUM PIVOT 
ALGEBRAIC VALUE= 
DETERMINANT = 


MAX. RESIDUAL VALUE= .cbebcE-15 EQUATION 6 


TABLE FG GOES FROM VAC 


BN. 9802: 0 EL. PROP: 
0 1: 7 “ee 
BN. DROP: 0 2. SROP: 
18 19 «15 11 10 
BN. PROP: 0 EL. PROP: 
213 38 5s 
BN. PROP: © EL. PROP: 
20 21) leueis emle 
10 
(NKG) = 95 
(NPG) = 36 
0 Om OMG 66 
0 0 0 60 4 
0 0 0 0 0 
. DOOOUEHI0 


OOOQ0E+O0 =. 26180E+00 


»OOGO0E+00 =. 65450E-01 


(NRES)= 


i 


»37469E+00 EQUATION: 


100 


»37465E+00 EQUATION: 
»L4103E+09 # 10 


a 


. OOGQGE+00 


0 


4 GRUB: 


4 GROUP: 


0 9 
me 
Od 


9 


111) To VAC 128) 


. VOO00E+00 


 DOOQOE+00 


 GOQQVE+00 


. OCKOGE+00 


1st 


SOLUTION 


NODES X Y Z DEGREES OF FREEDOM (* = ARESCIIBED) 
1 .QOO00E+0G .S0000E+00 .00000E+00 safdeuetdy 
€ .QOUQ0E+00 . 7OOQQ0UE+00 . OOOOUE+00 . 44681E+00 
3 .QOQO00E+00 .10000E+O1 . QOQODE+00 Pori ase sng) 
4 ,QQQOO0CE+O0 .12500E+01 . QOGQOE+00 » SS SCEE +00 
5 .QOOOO0E+00 .{SQ00E+01 . Q0000E+09 ded! (EHO 
6 .{9135E+00 .46195E+00 . OOOGOE+00 » JOH84E +00 
7 .47068E+00 .98097E+00 .00000E+00 0 $i abEtWO 
8 .7SQ00E+00 .1S000E+01 . O00O0E+O » 21 866E+00 
9 ,dS5S50E+H00 .3S350Et00 . O00000E+00 . QdHB7EH90 
10 .640138E+00 .64013E+00 . OCKOOE+Q0 » SSS00E+00 
li .92675E+00 =. 5c67SE+00 38. QOUO0E+CO . 1 98LBE+00 
fe .12i34e+O01 .12is4e+Oi . QOOCUE+00 » 9S103E-Gi 
13 .{5000E+Oi .15000E+01 . QO0G0E+00 ~QQO00E+CO * 
14 .46195E+00 $=.1913DE+00 =. 00000E+00 Oe 69E+00 
15 .9B8097E+00 .47068E+00 . O0Q00E+00 ClLAciEtOG 
16 .1S000EH I «=. TSQ00E+00 =. QOGOOE+00 ~HOCKE+OO * 
17 .50000E+00 .O0000E+00 . 00000E+00 » JOGB7E+00 
18 .7SG00E+00 .CQOO0E+00 .00000E+00 » 37 45E+00 
19 , 10000E+01 .O0000E+00 .G0000E+00 eens 7e+00 
20 .1eSO0E+OL =. OOQO0E+00 =. COQO0E+00 » 10581E+00 
Cl .1SQ00E+01 .GOOQQ0E+O0 =. QUOOGEtOD OOOCOE+HIO * 


GRADIENTS IN ELEMENT : 


PB. 6. 


P.G., : 


P.G. : 


P.G. : 


P.G. 3 


P, G. 


P.6. 


Pp. 6. 


P.6. : 


i 


{ COORDINATES : 
: ~ L137cE+00 -. B1069E+00 
@ COORDINATES : 
1 =. 123loet00 -.3/laaere0 
3 COORDINATES : 


GRADIENTS 


GRADIENTS 


GRADIENTS 


4 COORDINATES : 


GRADIENTS 


3 COGRDINATES : 


GRADIENTS 


6 COORDINATES : 


GRADIENTS 


GRADIENTS 
8 COORDINATES 
GRADIENTS 
3 COCRDINATES 
GRADIENTS 


d26ScE-01 =. SD406E+00 


~/63¢8E-O01 . 74818100 


LO041EHOO =. F4250E +00 
—. LL4B7E+00 -, 33465400 
COPASEHWO .Se044E +00 
~. 418B6E+O) -. 70605E+00 
@SSLOLE+OO =. 72146e+00 
~. SSS51E+00 -. 459¢B9E+00 
eASFISEHOO . 92248E+00 


s =, COBIDETOD -. COID7E+O0 
7 COORDINATES : 


»S7BQ0EHOO =. 44697E+00 
-. BO190E+00 -. 47047E+00 
»O/2S6EHOO =. 66307E+00 
-. 31 763E+00 -. S2390E+00 
»7BBZSEHOO =. 8791 6E+00 


: ~. 44680E+00 -. 11983E+00 


GEL 


GRADIENTS IN ELEMENT : 


P.G. : 


PG. : 


PG. -: 


DG. : 


PG: 


PG. : 


PG. 3 


p, 6. a 


P.G. : 


1 COORDINATES : 


GRADIENTS 


2 COORDINATES : 


GRADIENTS 


3 COORDINATES : 


GRADIENTS 


4 COORDINATES : 


GRADIENTS 
S COORDINATES 
GRADIENTS 


6 COORDINATES : 


GRADIENTS 

7 COORDINATES 
GRADIENTS 

8 COORDINATES 
GRADIENTS 

9 COORDINATES 
GRADIENTS 


GRADIENTS IN ELEMENT : 


P.G. : 


P.6. : 


P.G. : 


P.6. : 


P.G. 3 


p, G. ° 


PG. : 


P.G. : 


D.G. : 


1 COORDINATES 
GRADIENTS 


2 COORDINATES : 


GRADIENTS 


3 COORDINATES : 


GRADIENTS 


4 COORDINATES : 


GRADIENTS 


5 COORDINATES : 


GRADIENTS 

6 COGRDINATES 
GRADIENTS 

? COORDINATES 
GRADIENTS 


§ COORDINATES : 


GRADIENTS 


9 COORDINATES : 


GRADIENTS 


2 
e 


© 44697E+00 


» 3/650E+00 


: -. 71704E+00 -. 40960E+00 


 66307E+00 


»J/2SHE+00 


s -. B036CE+00 -. CD6Z0E+00 


2 87916E+00 


1682 3c +00 


s -. 45095E+00 -. 1405900 


202044 +00 


 CecesatO0 


s ~. BAS7SE+00 -. c4160E +00 


: ./2146E+00 


» SSLOLE+00 


s —. (SOS4E+O0 -. 179792 +00 


»Fec48E HK) 


»439192+00 


2 ~. SI0B0E+O0 -. 107442400 


s  .0406c+00 


»cbser-01 


: 69176400) -. Pieter! 


: . /4818E+00 


. /65¢3c-01 


: -, (G9S9E+00"—. (same sue 


s . 94230E+00 


. 19041E+00 


: - B9ZSSE+OO -. 56986E-01 


¢ .11432E+00 
s -. LLOSLE+O0 
. 13821E+00 
> -. 11648E+00 
~ 16210E+00 


»LQSSSE+0i 


~, CO454E+00 


 12494E+01 


-. 14037E+00 


»14435E+01 


: —. LIPBOE+OO -, cSlesesul 


» 3021 6E+00 


PP URS ian 1) 


: coc 7 (lesOor—. colecE sed 


. 61034E +00 


»icS05EH 1 


: -,co0sg=+00) =. LIg7 eeu 


s . /185eE+00 


14415c+01 


: ~. CIS/SEHOO -. 24060c-01 


oe eobeeee +00 
s ~. 4381 7E+00 
-10781E+01 


» L90049E+01 


-, bogceeae! 


{e2105+1 


s ~.44335E+00 -. CB6S4E-01 


- 12740E+01 
: -. 46020E+W) 


» 14370EF0} 
40218E-01 
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GRADIENTS IN ELEMENT : 4 


1 COORDINATES : .10049E+01 . ABe2zE+00 
GRADIENTS : -.4612e2E+00 -.9944cf-01 
P.G. : ¢@ COORDINATES : .1e2i0E+O!l .10781E+01 
GRADIENTS : -.46380E+00 -.47956&-01 

DG. : 3 COORDINATES : .14371E+01 .12740c+01 
GRADIENTS =: ~.45461E+00 -. 945652-02 

P.G. : 4 COORDINATES : .10395E+0!1 .S0215E+00 
GRADIENTS =: -.O/76i5E+00 -. 74197E-01 

P.G. : S COORDINATES : .12405E+01 .61034c+00 
GRADIENTS : -. ou835E+00 -, 36126c-01 

P.G. : 6 COORDINATES : .14415€+0!1 .7185eE+00 
GRADIENTS : -. S356eE+00 -. 7234{EVd 

P.G. : 7 COORDINATES : .10558E+01 .1143cE+00 
GRADIENTS : -.69031E+00 -. s6270E-vi 

P.G. : 8 COORDINATES : .12494E+01 .134821E+00 
GRADIENTS : -.62235E+00 -. 20090E-01 

P.6. : 93 COORDINATES : .14435E+01 . 16c10E+00 
GRADIENTS 3: ~.o9409E+00 -.4¢941E-Ce 


p, 6. 


ERUILIBRIUM RESIDUALS AND REACTIONS 


NODES =X i Z DEGREES OF FREEDOM (* = PRESCRIBED) 
1 .QO000E+00 .S0000E+00 . QOO00E+00  GOOO0E+00 
€ .QO000E+00 .7S000E+00 § . OOOU0E+00 =7a0S29e=15 
3 .OOQ000E+00 .10000E+01 . 00000E+00 se’ (J6e-16 
4 .QO0O00E+00 .12500E+0! . QOOGOE+O0 ~. (7743E-16 
3 .OOO00E+00 =. 1SC0Q0E+01 . OOOQ0E+00 si S109E-15 
6 .19L35E+O0 .46195E+00 =. OOOGCE+00 ~.¢7 (66-15 
7 .47068E+00 =. 98097E+H00 =. C0000E +00 -.1i102E-15 
B .7Q000E+00 $=. 1SQ00E+01 . QOOC0E+00 Syecs deat 
9 .do350E+00 =. SOS50E+00 =. OOOO0E+00 »3/470E-15 
10 .64013E+00 .G4013E+00 . QOOO0E+00 -. 40246E-15 
11 .92675E+00 =. 92675E+00 §=. QOO00E+00 MOUgSte sas 
le .LeLS4E+O1 =. 12134E+01 . OOOOGE+00 » 194¢9E-15 
13 .1S0Q00E+0! .15000E+01 .00000E+00 -. 102B8E+00 * 
14 .46195E+00 J 19135E+00 =. OOOO0E+00 et cem 


EOS 


15 
16 
17 
18 
19 


el 


. 98097E+00 
» LSOGOE+01 
» DOOOOE +00) 
» TAHOE +O0 
. 10000E +01 
» 1 ZS00E+01 
. LSO00E+01 


END OF PROBLEM, 


»47068£+00 
» COQQ0E+00 
» DOO00E +00 
» WONG0E+00 
. 900C0E +00 
» VOGO0E+00 
« QOQ00E+00 


« 90000E +00 
» COOQUE+00 
» QOOO0E +00 
» QOOOGE+00 
. NO000E+00 
» QO000E+00 
« NO0Q0E +00 


»{{102E-15 
edo let 
-, 13676E-16 
=H eas ella 

»65589E-16 

» 10724E-15 
~. LO/72cCEHIO * 


314 UTILIZED REAL WORDS GVER 
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20000 





OFD 


3m 


Concrete elliptical arch in plane stress, for 


comparison with the results of Dhatt and Touzot. 


FIGEN VALUE PROBLEM 


10 tons 
18 2OUees 
17 (4) ee 
E = 0.2x10" soni iS 21 
vwe- 0.3 ie 3 
thickness = Im | 24 eo) 
Spc. | cu tons/m> / 
26\27 (28 / 
pL, 
0.5m 


The loads consist of the distributed dead 
weight, and the concentrated force of 10 


tons at node 3. 


OD 


IMAGE OF DATA CARDS 


rem 3 
G.TOUZOT, 6. DHATT 
MODIFIED BY 


REHE &. RUESCH 


pe ee a ee ee ee ee 
MS ee ee eee eee ee ee 


CARD 
NUMBER 





Wont am OF ese & mM 


CARD 
NUMBER 


COLUMN NUMBER 
l c 5 4 3 6 a 3 
123456 7890 1234567890 1234567690123456 7890! 23456 7390123456 7890 1234567890 1234567850 
COMT 
ELASTIC ANALYSIS OF AN ELLIPTIC RALF oRIDGe ARCH IN PLANe SrreS5 
SAMPLE PROBLEM TQ COMPARE THE RESULTS CF XEF ON THE IBM AC 
WITH THOSE GF THE AUTHORS, DHATT AND TUUZUT 


COOR 
es Be oc 
3 0. 00 3.90 se 6.00 3.00 s 
9 0.75 3.90 20 aS. 3.08) 3 
¢ 0.00 Seeo 
7 . 1.80 3.20 
le 3.90 c.97 


17 J. 00 e008 
19 Jef 1.70 
1 0.00 3.00 
4 0.75 2. 98 
6 1.950 2. 90 
9 2. 30 co /3 
11 3.90 2. 44 
14 4.25 2.12 
16 0. 00 1.66 
c4 J. 0 0. 86 
c6 6. 00 0.00 
e7 6.29 0.00 
8 6.50 0. 00 
co 6.90 0.87 
el 6.50 iff 

123456 7890 123456 7890 1234567890 123456 7890123456 7890123456 7890123456 7890125456 7850 

1 2 3 4 3 6 i & 

COLUMN NUMBER 
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CARD 
NUMBER 





SBGBURARASaRERBE SSBB I 


Ve SseserurHA MEH HA 


CARD 
NUMBER 


INPUT OF NODES (M= 0) 


Co L UNPPPNU M B eR 
1 e 3 4 a 5 7 3 
123456 7890123456 7890123456 7890123456 7890123456 7890125456 78901 2245678902 234567590 


a ee ee ee ee ee 





ee 6.90 2.62 
“el 


COND 
ii 
ch Oe? OB 
10 
lecomecmeca 8cl ce c3 
0000000000 
PREL 
1 4 
1 crUnom Us 3 0.0 c.3 
z)! 
eLEM 


SOLC 

1 0.00 -10.00 

3 

=a 
SOLR 
VALP 

3 20 0.001 0.0 Saeco le 1. Date 
STOP 








ae ee eo 


1234567890 123456 7890123456 7890 123456 7890123456 7890 i 23456 7890 12345678301 234567630 
i c 3 4 9 6 ? 8 
COLUMN NUMBER 


END OF DATA 


ELASTIC ANALYSIS QF AN ELLIPTIC HALF BRIDGE ARCH IN PLANE STRESS 
SAMPLE PROBLEM TO COMPARE THE RESULTS OF MEF ON THE IBM PC 
WITH THOSE OF THE AUTHORS, DHATT AND TOUZOT 
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Le i le le Re a ee eS 
2 ES SS ye ee 


MAX. NUMBER OF NGUES 


(NNT)= 26 


MAX. NUMBER GF D.G.F. eR NODE (NDLNJ= oe 
DIMENSIONS C= THE PROBLEM (NDIM)= oe 
COORDINATE SCALE FACTCRS (FAC)= 10000E+01 .10000E+01 . 10000E+)L 
WORKSPACE IN REAL WORDS (NVA) = E0000 
INPUT OF BOUNDARY CONDITIONS (M= 0) 
BOUNDARY CONDITIGNS CARDS 
}}}}) 1100000000 .GOOG0E+OO .QO000E+00 .GQGOCE+OO .O0GG0E+00 .Q0GG0E+00 .QQ0Q0E+09 . 00000 +0G 
y)))) co cf) (ck o G9 O90 © C© DY GG BG Ola 
)¥3}}1000000000 .O00G00E+00 .QO000E+00 .Q0GG0E+00 .OO0G00E+00 .CCQOGE+0G .CC00E+00 .G00GdE+a0 
ee 1 2 3 3 1 @ eh OO (me 0 ©0005) [0mC ieee ee 
+) 30000000000 .Q0000E+00 .Q0G00E+00 .QQQ00E+00 .O0000E+00 .0000GE+00 .00000E+0G . Q0000E+00 
TOTAL NUMBER OF NODES (NNTD= = eB 
TOTAL NUMBER OF D.0.F. (NDLT})= 36 
NUMBER OF EQUATIONS TO BE SOLVED (MED= 43 
NUMBER OF PRESCRIBED NON ZERO D.0.F. (NCLNZ)= 9 
MUMBER OF PRESCRIBED ZERO 0.0.F. (NCLZ)= 13 
TOTAL NUMBER OF PRESCRIBED D.0.F. (NCLT)= 13 
NODAL COORDINATES: ARRAY 
NO DL. X i “ EQUATICN NUMEER (NEG) 
1 2 .Q00000E+00 .S0000E+01 .00000E+00 =i 1 
2 2 .QQOO0E+0O .32500E+H)1 . 00000E+00 = 2 
3 2 .QQ000EHI0 .35000E+01 .QQ000EHIO =J 3 
4 ¢2¢ ./S000EHO .29800E+01 .00000E+00 4 a 
9 2 .fQO0E+00 .SSOQO0E+01 .Q0G00E+00 6 if 
6 2 ,1S000E+01 .c9000E+01 .000002+00 8 9 
7 2 .15000E+01 .S2000E+01 .00000E100 10 i 
B 2 .162S0E+O1 .S5000E+01 . O0000E+00 ies 
9 2 .25000E+01 .27300E+01 .00000E+00 44 865 
10 2 J e4167EtOL =. SS000E+01 =. OQ000E+00 io 617 
110 eS. SHOO0E+01 «=. 24400E+01 =. 00000E+00 1S 
le 2 .SS000E+OL .29700E+01 .00000E+00 co "ed 
13. 2 =. SCSO0E+0L «=. SSO00E+01 =. 00000E +00 ces 
144 2 .42500E+01 .eclcO0E+01 .00000E+00 eh tt 
15 ek AOBSSE+01 =. SSQ00E+01 =. 00000E +00 26 ees, 
16 «=e. SODD0E+01 «=. LHH00E+01 §=—. QOUO0E+00 eUeeee cs 
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17 
18 
ig 


el 
ae 
e3 


NRA 


28 


INPUT 


CARDS 


8 
rete 


 SOCOOE+0! .25800E+01 .Q0000E+00 
AB7S0E+01 .S5000E+0! . Q0000E+00 
~S7HOO0E+O! .L7000E+Oi .QOQ00E+D0 
DPOOHOEFOL . SSQQ0EHOL .00000E+00 
~HO000E+0! .17500E+01 .00000E+00 
BO000E+0L .e6200E+O! .00000ct+00 
»60000E+0!1 .SSQQ0E+0!1 . O0Q000E+00 
POOOE+0! .ABOO0E+00 . QQ000E+00 
~FQ000E+0! .B7000E+00 .GQ000E+00 
~HOOOCE+O! .OOGQ0E+00 ..00000=+00 
ECD00E+01 =. OOGQOE+00 . OOOOCE+00 
~HSQG0E+0! .QOCQOE+OO .00000E+00 


ro ro ns M Mm MO 


rm mM nm PY re fo 


OF ELEMENT PROPERTIES (M= Q) 


a ae we ee eee 
— =p a SS See 


NUMBER OF GROUPS OF PROPERTIES 
NUMBER OF PROPERTIES PER GROUP 





OF ELEMENT PROPERTIES 


1 .cCQOO0E+07 .30000E+00 . QOQOGE+00 


-1 .QOO00E+00 .QQQ00E+00 . QO000E+00 


INPUT OF ELEMENTS (M= 0) 








MAX. NUMBER OF ELEMENTS 

MAX. NUMBER OF NODES PER ELEMENT 
DEFAULT ELEMENT TYPE 

NUMBER OF GROUPS GF ELEMENTS 
INDEX FOR NON SYMMETRIC PROBLE: 
INDEX FOR IDENTICAL ELEMENTS 


ELEMENT : 1 TYPE: 2 N.P.: 8 D.G.F.: 
CONNECTIVITY (NE) ! 4 6 
ELEMENT : e TYPE: 2 N.P.: 8 DOF: 
CONNECTIVITY (NE) Geo it 
ELEMENT: 3 TYPE: 2 N.P.: 8 DOF: 
CONNECTIVITY (NE) {1 14 16 
ELEMENT : 4 TYPE: 2 N.P.: 8 D.OF.: 
CONNECTIVITY (NE) 16 19° @! 
ELEMENT : 3 TYPE: 2N.P.: 8 D.0.F.: 
CONNECTIVITY {NE} e6 27 28 


MEAN BAND HEIGHT= 
LENGTH OF A TRIANGLE IN KG 
NUMBER OF INTEGRATIGN POINTS 


9. 1 MAXIMUM= 


(NGPE)= 
(NPRE} = 


. 23000E+0 1 
00000 +00 


(NELT}= 
(NNEL)= 
(NTPE)= 
(NGRE)= 
(NSYM}= 
(NIDENT)= 


16 N. 
é 
16 N. 
ke 
16 N. 
17 
16 N. 
a 
16 N. 


23 


be 


PROP: 
§ 
PROP: 
13 
PROP: 
18 
PROP: 
es 
PROP: 
2! 


(NKG)= 
(NPG) = 


109 


! 


30. Sk 
de dc 
54 oa 
56 wea 
a 38 


=AG 40 
4} 4c 
=1¢ 43 
= = 
= -4 


CO 2G &~ fo O Cl 


Q cL. ROP: 
Summ 


w 


el. PROP: 
i3 ted 

GO EL. PROP: 
CO el Gammel? 
Q EL. PROP: 
19° 1604 


—s 
onc CO fc in 
co 
—~J 


! 


393 
45 


4 GROUP: 


4 GROUP: 


4 GROUP: 


4 GROUP: 


4 GROUP: 


a 


9 


U 
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INPUT QF CONCENTRADED LOADS (M= 0) 


CARDS GF NODAL LOADS 


»)>?) 1 .QOQG0E+00 -. L0000E+02 
)>)>) 3° 0= 0 0 © @ 0 0 0 OF Oa eee 
})))) Lt .O0000E+00 . O0000E+00 


ASSEMBLING OF DISTRIBUTED LORDS {M= 0) 


lee De ee a SS SS eee ee 





NUABER OF DESIRED EIGENVALUES (NVALP) = 3 
MAX. NUMBER OF ITERATIONS PERMITTED (NITER)= 20) 
INDEX FOR DIAGONAL MAT AIX ~ (NMD IAG) = 0 
CONVERGENCE TOLERANCE ON EIGENVALUES (EPSLE)= . LOQQ0E-de 
SHIFT (SHIFT)= .00000E+00 
SUBSPACE DIMENSION (NSS) = u 
MAX. NUMBER GF ITERATION IN JACOBI (NSwit) = 12 
CONVERGENCE TOLERANCE IN JACOBI (TOLJACI= .10000E-.1 


ITERATION 1 MAX. ERROR= .S5E+06 EXACT EIGENVALUES: 0 
ITERATION @ MAX. ERROR= .46+00 EXACT EIGENVALUES: 0 
TTERATION 3 MAX. ERROR= .1E-01 EXACT ciGENVALUES: 3 


- « « « CONVERGENCE IN 4 ITERATIONS 


EIGENVALUE NO. 1 = .0615cE+04 


EIGENVECTOR: 

NODES = X Y Z DEGREES OF FREEDOM (* = PRESCRIBED) 
1 .QOQ00E+00 .S0G00E+01 . Q0000E+00 OOOOCE+00 * .66375E+00 
2 .OQO000E+00 .S2500E+01 . OOOOUE+00 ~COOOOEHOO # =. 661 72E+00 
3 .QO000E+00 .SSQ00E+01 . QQ000E+00 ~OOOO0E+00 # .69667E+00 
4 .7S000E+00 =. cSBO0E+01 . OU0O0E+O0 =, 13980E-01 »60786c+00 
3 .7Q000E+00 =. SS000E+01 . Q0000E+00 ~439031E-O1 » 60450E+60 
6 .1SQ000E+H1 .cSO00EHI1 . QOQ00E+00 ~ 40117E-01  48147E+00 
7? .15Q000E+01 .SCOQ0E+0! . Q0000E+00 . {8612cE-0! A7BWE+00 
8 .16250E+01 .SSQQ00E+01 . OOOGOE+00 * , (83c6c-01 »45397E+00 
9 .cCSO0O0E+0! .27300E+01 .O0000E+00 =, 430776701 »28471E+00 


ie 


10 .24167E+01 .35G00E+01 . QOGOOE+H0 » 80254E-01 »296582+00 
11 .S5S000E+01 .24400E+01 .O0GQ0E+00 -, 43399E-0! »14i6c8+6D 
le .35000E+01 .29700E+01 . COOOCE+00 » eo4lE-02 035794400 
13 .S2S00E+01 =. S5000Et0L . 00000E+00 .68736E-01 ieecetul 
14 .4e500E+01 .21eddE+01 .00000E+00 -, $2 504E-01 «1237 6E-01 
15 .40833E+01 .35000E+01 .00000E+00 » 48682E-01 segtoce UL 
16 .SOQOOE+0L .16600E+01 . QOOGOE+00 -, 17548E-01 » 0240-01 
17 .SOQQOE+01 .Z58O0E+01 .Q0000E+00 edo at vosedae a 
18 .48750E+01 .SSQQ0E+01L . QGQ00E+00 » 2 3860-01 » s7e82E-O1 
19 .S7500E+01 .1L7000E+01 . GGO00E+0 -, 7815 7E-0e2 17 S0LE-d1 
CO J S7OOOE+O1 «=. SSG00E+01 =. KO00E+00 . 14539E-01 »i6647c-01 
21 .65000E+01 .17500E+01 .00000E+00 . QOGO0E+00 + »iisete-c1 
 .65000E+01 .cbe0GE+01 . QGOO0E+00  OOO00E+00 + . 99616E-02 
23 .65000E+01 .35000E+01 .00000E+00 QOOOGE+00 + » {1585E-01 
C4 .S7S00E+01 .BB000E+00 . COO0GE+00 -, 19224E-0e Brse072-01 
Co =.BS000E+01 .87000E+00 .0Q0000E+00 . VOO0CE+O0 + gosge--Ce 
eh .BOO00E+OL .QQ000E+00 . OOQQCE+00 « QO000E+00 # HOGIIE+00 + 
C7 .62500E+01 .O0000E+00 . O0000E+00 OOOODE +0 * ~OOOIOEHOD # 
C8 .BO000E+O0L .OQ0000E+00 .00000E+00 . OOO0GE+00 + VOO0GE+G) * 

EIGENVALUE NO. e = ,37888E+05 

EIGENVECTOR: 

NODES X i Z DEGREES GF FREEDOM (# = PRESCRIBED) 
1 .QOO00E+00 .30000E+01 .00000E+00 ~OOOOCE+O0 *  =-. 43557E+00 
2 ,QOOO0E+00 .32500E+01 . 00000E+00 QOOOOOEHIO # =-, 433475+60 
3 .QO000E+00 .S5O0G0E+01 .00000E+00 OGOOCE+HIN #  -, 43308E+00 
4 ,7OOOUE+00 =. COBO0E+01 . QOQO0E+00 » (O478E-01 =, 30805E+00 
9 » QOOOE+OO .SSO00E+01 .Q0000E+00 -. 66583E-01 ~, S07Z8E+00 
6 .15G00E+01 .c30Q00E+01 . OO000E+00 » 12568E+00 -, 50310E-01 
7 .LSQOOE+OL .S2000E+01 . 00000E+00 Bio7ace-01 -. 45031E-01 
8 .16250E+0L .SSC00E+01 . OO000E+00 aaeei tee = joerc 0 
9 .cCOOOOE+01 .27S00E+01 . 00000E+00 . {0301E+00 Coe sBE tN) 
10 .c4167E+01 .35000E+01 .00000E+00 -, $0655E-01 227036400 

11 .SSQ00E+01 .2c4400E+01 . QOOOGE+00 »43413E-01 »SLSI6E+60 
12 .35000E+01 .297Q0EH01 . OCOOOE+00 » w2O9E-01 32 F55E+00 
13 .d2S00E+01 .S5000E+01 . 00000E+00 » SCO S6E-01 » d1620E +00 
14 .4c000E+01 .2leQ0E+Ol . QOOU0E+00 » 4673E-0¢ » 272072400 
15 .4083SE+01 .35000E+01 .Q0000E+00 . /4869E-01 CI474E+00 
16 .QOOO0E+01 .16600E+01 . 00000E+00 -,. 12682E-01 » 2Q050E+00 
17 .S0000E+01 .2S800E+01 .00000E+00 » C2806E-01 Ci 008E+00 
18 .48750E+01 . 35000Et01 . OOO00E+00 .77638E-01 »2S648E+00 
19° .S7S00E+01 .17000E+01L . QCOOO0E+00 =, cscedce—-0e » 14099E+00 
CO .O7S00E+0L .S5000E+01 . OOOOOE+HO » 4023cE-01 ~17473E+00 
Cl 60000E+01 .1L7SQ0E+01 .00000E+00 . QOOO0E+CO * » LIS96E+00 
Ce .G0000E+01 .c6200E+01 . OOUO0E+00 . QO000E+00 + »14199e+00 
23 .B5000E+01 .3S5000E+01 .00000E+00 . OOOO0E+00 # . 15438E+00 
°4 .S7S00E+0! .BB000E+00 .00000E+00 » 15066E-02 . 10386£+00 
Co .BO000E+01 .87000E+00 . O0000E+00  OOOCOE+O0 * pvigeee Ol 


ee 


ech 3. G0000E+01 .0Q000E+00 .00000E+00  GOQKKE+IO # I0000E+09 * 
ce? .62500EH1 .00000E+00 .00000E+00 .QO000E+O0 + ~QOG00E+0G * 
C8 .65000E+01 .OOQ00E+00 .Q0000E+00 ~COOOKE+O0 + ~UQ00GE+00 + 


EIGENVALUE NO. 3 = .10014E+06 


EIGENVECTOR: 
NODES ~=s X Y 2 DEGREES OF FREEDOM (# = ORESCRIBED) 
1 .Q0000E+00 .30000E+01 . 00000E+00 ,OQOO0E+00 * = -, 41 1ZBE+60 
2 ,0QQ000E+00 .32500E+01 . OOOQUE+00 ,O0G00E+00 # © -, 425 94E +00 
3 .00000EHO .3S000E+01 ©. CO000E+00 GOOQ0E+00 # = -. 44626E +00 
4. T5Q00E+00 .29800E+01 . 0OQ00E+00 12574E+00 = -, 222925 +00 
5 .7S5Q00EHO .35000E+01 . 00000E+00 -, 69262E-01 =, 22541E +00 
& .1SQO0E+01 .29000E+01 . COOO0E+00 . {74B3E+00  10569E+00 
7 .15000E+01 .32000E+01 . 00000E+00  68934E-01 LL778E+00 
B .16250E+01 .35000E+01 . 0GQQUE+00 -, 33533E-01 L4924E+00 
2 .25000E+01 .27300E+01 . O0000E+00 89352E-01 34S 7E+00 
10 .24167E+01 .35000E+01 . OOOQ0E+00  B6i00E-01 . 3E239E+00 
11 .3500Q0E+01 .24400E+01 . QOOQOE+00 -, 4720SE-01 12451EH0 
12 .3KQOEHL =. 29700E+01 . QOO00E+00  B1544E-01 . {48852+60 
13 .32500E+01 .35000E+01 . O0GQ0E+00 . 18077E+00  2C020E+00 
14 .42500E+01 .21200E+01 . O0000E+00 -, B7B10E-01 -, 78360E-01 
15 .40B33E+01 .35000E+01 . 00000E+00 JLQ541E+00  —--, 141 16E-01 
16 .50000E+01 .16600E+01 . OOOQOE+O0 ~, 75138E-01 ~, 2131 7E+00 
17 ,50000E+01 .25800E+0! . 00000E+00 -, 10474E-O1 -, 21304E+00 
18 .4B750E+01 . 35000E+01 . O0000E+0 ,13544E+00 = =, L718 LE+00 
19 .57S00E+01 .17000E+01 . QO0Q0E+00 -. 41600E-01 ~, Z163BE+00 
20 .57SQUE+0! .35000E+01 . QOQOOE+00  6Z931E-01 =. O7ZB5E+00 
21 .B5000E+01 .17500E+01 . 00000E+00 ,QOOQUEHO0 # © -, Z2ESGE+C0 
22 .B5000E+01 .26C00E+01 . OOOWUEHN OOOQW0E+G0 # = -, 284365400 
23 .B5000E+01 =. 35000E+01 . OOOKWE +00 ,OOQ00E+00 # = -, 290B52+00 
24 .57TSOOEHNL .BGQQ0E+00 . QOOQUE+00 ~. 27562E-01 -. 160512 +010 
25 .65000E+01 .B7600E+00 . O0OQ0E+00 ,OOCQ0E+00 # © -, LIGIGE+00 
25 .BQ0Q0E+01 .000G0E+00 . QO000E+00 .GOOO0E+00 # =, 000008 +00 * 
27 .B2SOOE+01 .0GQ00E+00 . 00000E+00 ,00000E+00 # =. OOOGEHI0 * 
28 .BHOOE+1 .00QQ0EH00 . 0OQ00E+00 ,00000E+00 #  — .Q0O00E+00 * 

END OF PROBLEM, {676 UTILIZED REAL WORDS OVER 20000 
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T = ssoauyor} 
Go'0 = CL 
Is{ OOO OE = A 


The following table of results for the cantilevered 


beam was obtained by Carlos A. Felippa. 


DEFLECTION AND NORMAL STRESS 


Tip Deflection Stress or 
Element § at X=9",Y= 6" 


0.30556 
0.54188 


0.55506 
0.35569 


Beam Theory | 
(upper bound for Vo) 0. 35583 





For comparison, the tip defelections from MEF are the 
ones for nodes 161 thru 165. The stresses are the stresses 


listed for Gauss Point 3 of elements 51 and 52. 
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Potente 
6. TOUZ0T, G.DHATT 
MODIFIED BY 








REHE E. RUESCH 
IMAGE OF DATA CARDS 
COLUMN NUMBER 
CARD ! 2 3 4 5 6 7 4 
NUMBER 12345678390123456783012345678901 23456 769012345679390 12345579901 2345679901 234567030 
{ COMT 
2 CANTILEAVERED REAM 12 X 44 X 1 (INCHES) 
3 6 NODED TRIANGUALAR ELEMENTS (ELEMG3) 
4 64 ELEMENTS 
5 FOR COMPARISON WITH THE RESULTS OF CARLOS A. FELI229 
3 
7 COOR 
B isa 2 22 
g { 0.0 0.0 0.0 16! 48. 0 0.6 a0 5 
10 2 0.0 3.0 0.0 162 48.0 3.0 0.6 € 
i! 3 0.0 6.0 0.0 163 48.0 6.0 a0 5 
12 4 0.0 9.0 0.0 164 48.0 9.0 (0 
13 5 0.0 12,0 0.0 165 46.0 12.0 00 5 
14 0 
15 COND 
16 if 
17 1,2, 3, 4, 5,0 
18 0 
19 PREL 
20 ie 3 
21 1, 30. 0E03, 0. 25, 0. 0, 
22 0 
23 ELEM 
2h i, = 
5 omc omc i ot | gmmeil i2éi{3#7~«9 
26 hie OS ltl tlt tli CU73  UBlCU3l2tCO 
27 Sic Gms «Cll (lt(iattCOd) OMG 4 CO 
28 mis SOS Of tlt 5 ANTyeerSe tom G 
29 0 
30 SOLC 
31 1,0.0,-40.0, 0.0 


Pl: 


de i63, 





33 0 

34 LINM 

3S i 

36 STOP 
CARD £234567890123456 7890 1 234567850 12345678901 254567990 123456 7890! 23456 7690! 234557990 
NUMBER i e 3 4 o 6 q 8 


COLUMN NUABER 


ND QF DATA 


m 


COMMENTS 





CANTILEAVERED BEHM te X 48 X i (INCHES) 

6 NODED TRIANGUALAR ELEMENTS (ELEMQ3) 

64 ELEMENTS 

FOR COMPARISUN WITH THE RESULTS OF CARLOS A. rELIPPA 


INPUT OF NODES (M= 0) 


MAX. NUMBER OF NODES (NNT)= {165 

MAX. NUMBER OF D.0.F. PER NODE (NDLN)J= oe 

DIMENSIONS Of THE PROBLEM (NDIM= 2 

COGRDINATE SCALE FACTCRS (FED)= .iGQQ0E+OL .0000E+01 . 1GQ00E+01 
WORKSPACE IN REAL WORDS (NVA) = CU0UG 


INPUT OF BOUNDARY CONDITIONS (M= 0) 


BOUNDARY CONDITIONS CARDS 


}}}>} 1100000000 .QO000E+00 .QOQQOUE+00 .00000E+00 .GOOQOE+G0 .00000E+00 .GdddGE+CO . doocdE+OG 
¥d})) l 2 3 é 5 0 0 0 0 0 0 Q 0) 0 Q 0 
}¥>)}0000000000 .QQ0Q00E+G0 .Q0000E+00 .QQ00GE+00 .G0Q00E+00 .O0000E+U0 .OGOQUE+OO .agdag=tad 


TOTAL NUMBER GF NODES (NNT)= 165 
TOTAL NUMBER OF D.0.F. (NDLT)= 330 
NUMBER OF EQUATIONS TO BE SOLVED (NEQ)= SC) 
NUMBER OF PRESCRIBED NON ZERO D.0.F. (NCLNZ}= = =9) 
MUMBER OF PRESCRIBED ZERO D.0.F. (NCLZ}= 10 


HEE 6 


NODAL COORDINATES ARRAY 


NO 9.L. 


oN moose Wr; 
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J 
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TOTAL NUMBER OF PRESCRIBED D.C. >. 


X 


 COOO0E +00 
« KO000E +00 
. XO000E +00 
» COOOUE+00 
. 00000E +00 
. IS000E+01 
. 15000E+01 
. 15000E+01 
. 15000E+01 
. 15000E+01 
. SO000E+01 
» SO000E+0 1 
« S0000E+01 
» SO000E+01 
« S0000E +01 
» 45000E+01 
« 45000E+01 
» 45000E +01 
- 45000E+01 
» 45000E+01 
. BO000E+01 
. B0000E+0 1 
« BOOGOE+01 
. BOOU0E+01 
. BO000E+01 
» PQ0OCE+0 1 
» 7Q000E+01 
» TOOOGE+0 1 
« 7X000E+0 1 
« TO000E+01 
. KOOO0E+01 
« OQ00E+01 
. JOOOOE +01 
. FOQ00E+01 
. 30000E+01 
» 10500E+02 
. 10500E+02 
. LOSQ0E+H0e2 
. 10500E+02 
. 1OD00E+0e 
. 12000E+02 
. 12Z000E+02 
. 12000E+02 


. QOO00E+00 
» SUOQ0E +01 
. FOO00E+0 1 
« FOOOUE+01 
. LL000E+02 
» KOOQ0E +00 
« SOOQ0E+0! 
. S0000E+01 
« FOO00E+01 
. L2000E+02 
« XO000E+00 
. SO000E+01 
- FO000E+01 
« FOOO0E+0 1 
. 1Z000E +02 
. OOGOOUE+00 
. S0000E+01 
» BOOQDE+01 
. SO000E+0i 
. 1L2G00E+H2 
. K0000E +00 
. SO000E+01 
. GOO00E +01 
« SO000E +01 
. L2000E+02 
« OGO0E+00 
- 80000E+01 
. FOOO0E+0 1 
« SO0G0E+)1 
« L2000E+0e 
- 00000E +00 
» BO000E +01 
. F0G00E+01 
. KOOG0E+01 
» 120Q0E+02 
« XO000E+00 
» SOOQUE+01 
. F0000E+01 
. SOQ00E +01 
« LLO00E+02 
- QOOO0E+00 
» SOOO0E+01 
. F0000E+0 1 


l 


. QOODCE+00 
. OQ0G0E+00 
» OOONCE+00 
» QG00CE+00 
» QOOO0E +00 
. NOGCO0E +00 
. XO000E +00 
. 000002 +00 
. OOOOUE +00 
. QO000E+00 
 OO00E+00 
« VOOOOE +00 
. KOOOGE +00 
. OOUOE+00 
. NOO00E+00 
» OG0E+00 
. QOO00E +00 
« KOQ00E +00 
. X0000E+00 
« QOO00E+00 
. QOO00E+00 
. QOGO0E+00 
. KOO00E+00 
. OOO00E+00 
« OGO00E+09 
. OOQ00E +00 
. OOO00E +00 
. DOO00E+00 
. OOO00E +00 
. 0O000E +00 
 OOO00E +00 
« NOG00E+00 
. XO000E+00 
. QOO00E+00 
. KOO00E+00 
« 90000F +00 
. X0000E+00 
- Q0000E+00 
. COOO0E +00 
« Q0000E+00 
 00000E +00 
» 00G00E +00 
. DOOOCE+00 


ee 


(NCLT)= 


EGUATICN NUMBER 


= 
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. 12000E+0¢ 
. 1L2L000E +02 
» 13500€+02 
» 13S00E +02 
» LSSQ0E+HW2 
» LSS00E+02 
» LSSO0E+02 
» LOOODE+H 2 
. LDQOOE +2 
. LS000E+02 
» LS000E+02 
- LOOOE+02 
» 16500E +02 
. LAE500EW?2 
» L6900E+02 
. 16500E+02 
» 16900E+02 
. LBOO0E+02 
. 18000E+02 
. LBO0DE We 
» LBO00E+02 
» LBO00E+02 
» L9500E+02 
. L9500E+0e 
. 19500E+0e2 
. 1L9500E+02 
. 1L9500E+02 
» 21000E+02 
» 2L000E+02 
» CLOOUE+02 
» CLOODE +H 
. C1Q00E +02 
» CLQ00EH 2 
» CCOOE +2 
» CLKE +2 
» CLGOOE HW 2 
» C2Q00E +e 
» 24000E +02 
» CAQOOE+02 
» C4000E+02 
» CA000E+02 
« 2S000E+02 
» CQQV0E +02 
» COIO0E +2 
» LOM0E+2 
» CQIODE +02 
» CODE +2 
- 2/Q000E+02 
» 2 OO0E+02 
-CLOWEH2 
. 2/ QO0E+02 


» 300008 +01 
» L2Q000E+02 
. X0000E+00 
. SOO00E+0 1 
. FO000E+01 
. JOO00E+0 1 
. 12000E+02 
. OOOO0E+00 
. SUO00E+0 I 
. 60000E+01 
. HOWE+01 
. 12000E+02 
. KO000E+00 
. 80000E +01 
. HO000E+0 1 
» IOO00E +01 
» LLO00E+02 
. OOO00E+00 
» SO000E+0 1 
. F0000E +01 
» KOO00E+0i 
» L2000E+02 
» (OGO0E+00 
. 80000E+0 1 
» HOOO0E+01 
. SOO00E +01 
. 1LZG00E+02 
- OGO00E+00 
» SOOQOE+01 
. B0000E+01 
» FOOOCE+01 
» L2000E+02 
. OOGO0E+00 
. SOOG0E+01 
. FOOCUE+01 
. X000E+01 
» 12000E+02 
. OOO00E+00 
» SO000E+01 
. BO000E+01 
» IOG00E+01 
. 1L2000E +02 
» OGO0E+00 
. 80000E+01 
. FOOO0E+0 I 
. S00G0E +01 
. L2OO0E+02 
- QOOO0E +00 
« S0000E+0 I 
» BOO00E+0 1 
» KUOOE+01 


 KO0ONE+00 
« GOOGOE+00 
» OOGODE+00 
. OOO0CE+00 
. 000002 +00 
« OOG00E+00 
. OOO00E+O0 
» N0000E+00 
. OOOGGE+00 
» O0000E +00 
- CO000E +00 
. X0000E+00 
« DOGQDE+00 
» KOO00E +00) 
. QO000E+00 
» OOO0E+00 
» OOO00E+00 
- X0000E+00 
. KOOG0E+00 
« OOOOCE+00 
« OOGOUE+00 
« 00000E +00 
» OOOOGE+00 
. COOO0E +00 
- OO00E+00 
 KOOQ0E+00 
. 0G0Q00E+00 
. QO000E+00 
. XOO00E+00 
» OOO00E+00 
« X0000E+00 
. 00000E +00 
. OOO00E+00 
- D0C00E +00 
. VOGOOE+CO 
. OO000E+00 
» X0G00E +00 
» OOO00E+00 
. OYO00E+00 
. OOO00E +00 
. NO000E+00 
. OO000E+00 
« O000E+00 
» 00000E+00 
» COO00E+00 
. GOOO0E+00 
. 90000F +00 
 OGO0GE+00 
. OOQUE+00 
. 00000E+00 
. XOU00E+00 


Lass 


153 
31 
53 


c 
wd 


&7 
83 


{ 


93 


Cc 
ay 


oT 


101 
103 
i903 
107 
109 
11) 
ne 
biS 
7 
1:9 
vei 
les 
125 
ie? 
129 
131 
133 
130 
137 
123 
141 
143 
143 
147 
i49 
132 
153 
155 
1o7 
153 
161 
163 
165 
167 
163 
171 
is 
We 
177 


78 
ds 


170 
lis 
174 
176 
178 


90 


97 


100 
101 
102 
103 
104 
105 
106 
107 
108 
199 
110 
Lit 
Iie 
rs 
114 
115 
116 
117 
118 
ne 
120 
lel 
Pec 
123 
124 
129 
126 
127 
128 
129 
130 
131 
Ise 
13g 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 


rom Mr Mm rm rm rm rm 


ro Tm} 


ror Mm me 


room FO mo PO rm Pm fre fof fro re Pom Mm rm Pore Po ra fo re fo fa fo my fro ro 


ro po Po me 


ro ro 


.2/000E+H02 
« CBS00E+H2 
« CBSO0E +2 
« CBS00E He 
« CODOOEHW2 
» CBSOGE+02 
« SOOOOEH)2 
» S0000E+H2 
» SOG00E +102 
« S0000E+02 
. S0000E +02 
. S1LXOCEW? 
« S1500E +02 
« SLQ00E+02 
» 8LSQ0E+02 
» S1S00E We 
« SS000EW2 
« S3000E+0¢ 
 SS000E+02 
« SSOO0EH 2 
» SSOODEH2 
« S4500E +02 
« 34500E +02 
» S4500E+02 
« SA4500E +02 
« SF4ASQ0E 12 
« S6000E +02 
» 86000E 102 
« 46000E +02 
« S6000E+02 
» 36000E+02 
» 3fG00E+02 
« 37 S00E+02 
« S/HODEHWE 
« 3 /900E+02 
« SOE 
« SIOCOE +2 
» SIOOGEH 2 
« SHOODEW2 
« SIQOKEHW)2 
« SSO00E M2 
» 40300E+02 
» 40500E+02 
« 40500E+02 
» 40500E+0¢ 
« 40500E +02 
« 42000E +02 
« 42000E +02 
« 42000E+02 
»42000E+02 
« 42000E +02 


. LcOQ0E+2 
. OOOUOE +00 
« SO000E+01 
. BO000E+01 
» F0000E+0 I 
« LZOQOE+02 
. QOOQ0E+00 
. SOO00E+0! 
. F0000E +01 
. KOGOUE+01 
» 12000E +02 
« COOOOE+00 
» SOOD0E +04 
« BOOGOE+01 
. JOO00E+01 
. LPOQUE+02 
. QOOO0E+00 
. SOOQUE +0} 
. H0000E+0 1 
« KUGOOE+0! 
» LeQ00E+02 
. OOOOGE+O0 
. S0000E+01 
«69000E+01 
« KHOQOE+0 i 
» LLQOGE+02 
. COOOCE+00 
» SO0QUE+01 
. F0000E+01 
« KOOGE+01 
. LZOO0E+02 
« XOOG0E+00 
» SO000E+01 
. B0000E +01 
« S0GO0E+0 1 
. L2000E+0¢ 
. QOO0UE+00 
« S0000E+01 
. BOQ00E+01 
« JO000E+01 
. LZQO0E +02 
« XO000E+00 
« SOOQOE +01 
« BOOOOE+01 
« SOOOCE+01 
« iCOG0E+02 
. DOOOOE+00 
» 30000E+01 
» F0000E+0 1 
© KOOVVE +O} 
» LPOWEH 2 


. OO000E+00 
« DOGG0E+00 
« QOQOUE +00 
. OUGN0E +00 
« QOOQCE +00 
« QOOGOE+00 
« (O00CE +00 
. OO0G0E+00 
. VOOOCE+00 
» GOO00E+00 
. OOO0CE+00 
» DOG0GE+00 
« QOQO0E +00 
. VO000E+00 
« VOOO0E+00 
« Q0000E+00 
. 00000£+00 
. 00000E+00 
« N0000E+00 
 OOOUKE+00 
. QOQQOE+C0 
« OOG0E+00 
. OOO00E+00 
. QOOCOE+00 
. VOUODE +00 
» OOGOOE +00 
« QOCOOE +90 
« KOQQ0E+00 
. COO00E+00 
« DOQ00E+G0 
« COON0E +00 
« VOO0OE+00 
. QOOG0E +00 
. OGO00E+00 
« OGOOUE+00 
« 0O000E +00 
« OOOO0E+00 
« OOODHE+00 
 QOCQDE +00 
« OOOODE+OO 
« COQOOE +00 
« DOOO0E+00 
« IG00CE+00 
« QOGOUE+00 
« COO00E +00 
. OOO0GE+00 
« GOO00E +00 
» N0000E+00 
. QOO00E+00 
. O0000E+00 
. QOOOCE +00 


mS 


179 
181 
183 
185 
187 
189 
tat 
193 
io 
197 
199 
c0l 


203 


n: 
on 


Tur Fu 


ra 
ee 
wo ~d 


ro TO fo fre 
eee pe CR 


1 ro fy = 


faa 
a 


ro 
—J 


1 TO fo fa fue ra 


wo 


180 
18¢ 
184 
186 
188 
190 
19e 


By ES YRS PS BS 
a fe fu Fe ce 
Some BS 


1 feo ny TU rao Toe ne FO me Te ro fe mo Fa pea Te roe Fes 
on Oo on non iO on Oe Ee OS i CHl Cat Gv 
i rr ma man —- fr a or ye ‘ 


Tae 
no Mm 
rom + 


\ 


270 
2ic 
274 
276 


146 
147 
146 
149 
130 
{St 
lo¢ 
133 
134 
{58 
156 
13/7 
138 
199 
160 
161 
162 
163 
164 
163 


» GQOG0E+00 
« OO000E +00 
 QOCKOE+00 
« N000CE +00 
« QOU0DE+00 
« QOOO0E +60 
» KOCOGE+00 
. Q0000E+00 
. KOUQGE +00 
» OOCO0E+00 
 OOGQ0E+00 
« OOOQ0E+00 
« QOCOGE+00 
« OOO00E +00 
 OOON0E+00 
« QOO00E +00 
« COOO0E+00 
« QOOOCE +10 
« QOOG0E+CO 
« Q0000E +00 


» AS500E+02 
 43500E+02 
» ASS00E+02 
» 4SD00E +02 
 43900E+02 
» §3000E +02 
 45000E +02 
» 4500E+H2 
430008 +02 
 45000E 102 
 46500E+02 
 46500E +02 
» 46900E+02 
 46500E+H02 
469008 +02 
 48000E +02 
480008 +02 
 48000E +02 
 48000E +02 
 48000E +02 


» GOG00E+00 
. SOO00E+91 
»60000E+9! 
» KHOOOE+ 1 
. L2Q00E+H2 
 OOO00E +00 
» S0000E+01 
» 60000E+01 
. JOGQUE+9L 
 LZQ00E+H2 
. OO000E+00 
» SOQ00E +01 
. O000E+)1 
. SKOOOUE+0! 
. 12000E+02 
 QOO00E +00 
. SOOOOE+01 
. 60000E +01 
. KOOQOE+0 1 
» L2L000E +e 


Mor fom Mw ro Mm rm Mm Mw we fOr TY rm rT rw PT Pr 


INPUT OF ELEMENT PROPERTIES (M= Q) 


NUMBER OF GROUPS OF PROPERTIES 
NUMBER OF PROPERTIES PER GROUP 


CARDS OF ELEMENT PROPERTIES 


)d))) 
>>>) 


» QQO00E+00 
 OO000E +00 


1 . S0000E+05 
Q . Q0Q00E+00 


« CGOQUE+00 
. OOOG0E+00 


INPUT GF ELEMENTS (M= 0) 


MAX. NUMBER Ge cLEMENTS 

MAX, NUMBER OF NODES PER ELEMENT 
DEFAULT ELEMENT TYPE 

NUMBER OF GROUSS CF ELEMENTS 
INDEX FGR NON SYMMETRIC PROBLEM 
INDEX FOR IDENTICAL ELEMENTS 


ELEMENT: 1 TYPBteS Nagas Gebel er. : 
CONNECTIVITY (NE) i fee le 
CLEMENT: ¢ |YPa: Sau. Y. : Gene. F.: 
CONNECTIVITY (NE} {t1 16 2! 
CLEMENT: 3 TYPE: 3 Nae 6 er. 
CONNECTIVITY (NE) 2: 6 3! 
cLEMENs 4 TYRE: Saher. sage. One. : 
CONNECTIVITY (NE) 3: 36 43 


28! 


ch3 
235 
cH? 
269 
Cad 
a 
c2p 
| 
239 
301 
208 
S05 
307 
399 
Sia 
$13 
Shs 
S17 
og 
(NGPE) = ! 
(NPRE) = 3 
(NELT)= 64 
(NNEL ) = 6 
(NTPE) = 3 
(NGRE) = 3 
(NSYM) = 0 
(NIDENT) = 0 
12 N. PROP: 0 
fe is & 
if N. PROP: 0 
eoune 17 
le NM. PROP: 0 
Sc Joey 
i2 N. PROP: @ 
ae 45 «37 


a] > fy io Bo ee fo 
wo Wu OF mo & oo 
3S Ome rs a Om S&S ri 


sve 
304 
$06 
308 
310 
jie 
S14 
316 
318 
320 


. Frupe 


Pyjo: 


DROP: 


. PROP: 


$ GROUP: 


3 GROUP: 


3 GROUP: 


3 GROUP: 


i 


1 


Ns ORGPs 
commeros | 47 
\. PROF: 0 


cameos 86a 


s l2 WV. OOP: 9 


i¢ N. PROP: Qe 


Seva” Pears M23 boar 
Peco sivii’ (SP Sf 46 OE 

CSN 6 y=. 8 Negus UTGee.: 
Geeleyt Vane 3: “Sb. 6! 

SileMeh 2 ves Bias. :. Del. U. Ge 
G@mrectivi:Y (NE) 6: 65 “7? 

a Gey pate sina.) Seal. ame 
CONNECTIVITY (NE) 7:0 76—t«CSJ 

See: 5 TY9E: SNM: 6 DGeF.: fe 8 


CeNWecriviiY WWE) = 6Bi 6 986 OS: 


ecemewos§6©6 10 YPE: 3 N20: 6 0.0.F.: 
CONNECTIVITY (NE? %: 96 {ot 
ees: i) Pee: 3B. 0.5 SU. F.: 
CONNECTIVITY (Ned 10i 106 fii 
peereihee. ic, Y=: 3,N.P.: 6 Dea. ¢ 
MOMeLtViTY (REP itt t!6 fei 
omeerts 13 ¥O=: 3 N.A.: 6 DEAF 


CONNCETIVITY (NE) {21 126 131 
SLEMENT: 14 “YOE: 3 NLA: 

CONNECTIVITY (NEY 231 
See ee 1d Peer Ne at 

CONNECTIVITY (NE) 14! 


e+ 
J 
cm 
a 
- 
»— 


re = 
Om e 


meio & we 
Cl 


SeereNi: 16 77a: 3 NP: 5 a 
CONNECTIVITY (NE) 235! 156 16; 
seme: 6017 Tre: 3 NOP: 6 D9G.F.: 
CONNECTIVITY (NE} tas 


SEMENT: 18 TYPE: BNI: S DOF: 
CONNECTIVITY (NE) 2017) 83 

BEMENT: 19 “VRE: 3N3: 6 DOLE. 
CONNECTIVITY (NE) 21. 27 33 

SEMEN: 20 TYDE: TNE 6 
CONNECT 


CJ) cu 
cI 
mn 


ive (Ne) il 

Smee) ee. Sores No.3 6 DOSF.: 
CONNECTIVITY (NE) 41 47 53 
cust) 6oce YE: oenee.: 6 D.G.F.: 
CONNECTIV ai (Nemerol 37 Ss 
ereMeNt: 23 TYDE: 3 NP: 6 DGF.: 
ebay: (NE} 61 S57 73 
SLEMENT: 24 TYPE: 3 N90: 6 DGF.: 
Se ey nas 
=LEMENT Pye Gen, 22 hG DOGLFs 
CONNECTIVITY (NE gi die 8 
Bee Ne econ (eases Nooo Deir. 
CONNECTIVITY 4NEP™ Si 97 {03 


CLEMENT: 27 TYDE: NPL: 6 
CONNECTIVITY (NE) 101 
SLEYENT: 28 TYPE: 3 NO: 
CONNECTIVITY (NE) tit 


ce 
I 
“hy > 1) eee 


om x 
cS =e <> 
os med 
3 
te 
ues CaJ ees 


— 
~ 
oe wx 
rm 
tJ 


CLEMENT: 29 TYPE: GNI: 5 Bes 
CONNECTIVITY (NE) fet 127 $33 
CLEMENT: 20 “VBE: SNP: 6 DG. : 


ees . 
— fe ‘ 
oS .o 
rede Og 
oD 
&) co 

MS 
ist 
wy SS 


~ 
= 
“aa 
AJ 
C 
“t 


roe ru 
- 


— 
fr Pl em Oks 
att 
 e) 


-™ 
+ na + 
Cl ro 
e-- TZ 
C-J 
ti & 

“cI 
hom 
fas 


— 
ri 
= 
cI 
4 
tm 
Qo 
— 


fe N, PROP: © 

{Sem i535 147 
12 N. 5207: 0 
16 


—s 
res 

oo ron Te 
Do 
Oo 
— 
ba 
Bid 


+--+ 
fice 
ae 
TI 
~g 
a 
‘H 


9 69S0—CiCSE! 
i. PROB: Q 


ae 
~~ FO 
Cao 
ao 


103 102 
ZN. PROP: 9 
118 {13 tle 
c 0 

Q 


— 


at 


Xi. OROP: 
128 {es fee 
fe N. BaGh; 


de 


Skat 


cL. 


i 


=P 
a i bem oo 


3 GROUP: 


C-5 
G) 
-O 
e 
ee 


oJ 
Go 
a 
— 
co 


3 GROUP: 


Lad 


GROUP: 


C-) 
cit 
mS) 
C 
ae) 


3 GROUP: 


fa! 


GAGUP: 


3 GROUD: 


3 6ROUP: 


3 GROU?: 


3 GROUP: 


i 


-— 


l 


t~e 


hoe 


heh 


t 
a 


i 


SONECTIVITY (NE) 13 
SEVEN"; 2! TOE: 34,2 

CONNECTIVITY (NE) Lad 
SEVENT: 32 “VOE: SND: 

CONNECTIVITY (NE) 15! 
EVENT? 33 TW2Et 38.84 


See | (KE) 3 

2 EEN, 34 Yee So. 

LUNNECTIVITY (NE) = {3 
oa 39 (eens fe Pee 

CONNECTIVITY (Neate 3 


SS SC me nC A 


GENNCOT omer (Ne lees 
SASMEAT: 8637 TYRES 3 NLA: 
PONNSDTIVITY (NE) 43 
CORMAN: 8 39 «eee SN eC: 
CUNN=CTIVITY (NE) = Sa 
cUEMENT: 39 TYR: 3 N.P.: 
CONNECTIVITY (NE} 8663 
SLEYeNTs 40 TYPE: 3 NPL: 
oy MECTIVETY (RE) 678 
SLEYENTs «= 43 TYDE: BND: 
CONNECTIVITY (NE) = B3 
SlctiNT: 4¢ TYFes 3 NPS 
CONNECTIVITY (NE) 93 
Se PMeNte 43 TYPE: Gaver. 
CONNECTIVITY (NE) £93 
SUEYENT: 44 “YRS: SNP, 
CONNECTIVITY (NE) 1 
Se EYENT? 45-TYPE: 3 Wipe 
CGANECTIVIGY (NE) ie 
SUevese: 46 [yer 3 Noes 
CONNECTIVITY {NE) 33 
SS eN a yee eee eee 
CONNECTIVITY (NE) i43 
E owe ie - se 3.4.7.3 


CORNECTT {NE) {53 
PLEMENT: Te Sats Pe 
CUNNECTIVITY (NE) Q 


SU SMEN Te SU Pree 3 eee: 
ale (NE) 1g 
cLOMENT : se aN ea 
me (NEP 20 
Beare: Jc UEDe Sallar. : 
CONNECTIVITY (NE) = 38 
ChemeNG: §6©=6S «TYAEi 3 NLP: 
CONNECTIVITY (NE) = 49 
cumMea: = 4 TYEES 3 NLP. 
CONNECTIVITY (NE) = SS 
SaSeNe: 6 Jo) Nees Secaiene 
CONNECTIVITY (NE) 65 


CnJ ee 


== elie) att 


co 
— ~Ty 
= 5 


Lae | 
2 C.J «oe 


x. 


ss 


- To ee fe ee 


— f 
1 
uo 


ru ris ra os -— 
ule “1. ke >, t 
i oi me : C.J Om - 


ro 
= 


vr > 


Heie N 


74 


22 


CJ 
4 
Ch 


Css 
Gi 
a 


Cod 
G 
we) 
m 
Cc 
a 


Gs 
@ 
=a 
tC 
(ia 
wl 


Cas 
ri 
aA) 
Cc 
C= 
C 


3 GROUP: 


3 GROUA: 


3 GROUP: 


3 GROUP: 


$ GROUP: 


Cos 


3 SR0ue: 


3 GROUP: 


3 5ROUP: 


3 GROUP: 


3 GROUSE: 


3 GROUY: 


3 GROUP: 


3 GROUP: 


3 GROUP: 


GRULP : 


oa 


I 


¢ 


ee 


: 
4 


i 


i 


{ 


4 


i 
4 


| 


1 
4 


pee eccet 22rd sees 9 U.0.Fos ae N. FUP: © EL. Props 3 GROUS: 


CONNECTIVITY (XE) 6750 O730CiS 4 OC 


eee cei 2e: Sener ol. g.r.: te No PROP: 0 ch, PROP: 3 GROues 


COMReCTiviiy (Ne) 8s 83 973° «94 «9 


See see ire! S heraseorbe.r: lee Pade: O EL. PROS: 3 GRUUA 
i04 i05 100 


GEANBETIVITY (KEP geo 699 = tus 

coewene: oF T¥ve2 3 AP.s 6 DE. 
CONNECTIVITY (NE) 105 109 1: 

Eeeret: 8660 TYPEsed hs : 6 D.0.F.: 
CONNECTIVITY (NE) 115 119 te 

EeeMeENT: 6! TYHE: 3 LP. SeueU. hes i 
CONNECTIVITY (NE) {25 129 133 134 135 130 

eeemewt:)§«6 G2 rer geNebe: 6 0.0.F.¢ abe N. PROP: USL. PROP: 3 GROUP: 
CONNECTIVITY (NE) 135 i939 £43 144 1435 140 

SUEMEN?: «665 TYAGso gas 6 DOF.: Je. PROP: 0 EL. PRUY: 3 GROUP: 
CONNECTIVUTY (NE) 145 149 153 154 155 150 

Samer: | CS) Ft Cede te U.F.s fee PRUP: @ EL. PROP: 3 GROUP: 
CONNECTIVITY (NE) $55 159 163 164 165 {60 


e~— 


Cl ee J 
— 
ny oe Tas 
ao 


DQPs O EL. PROM: 3 GROUP: 
i115 «110 
OROP: Gel. PRGA: 3 GROUP: 
fea i120 


= 
rm — 
_- = 


fas 
= 


MEGS BAND MEIS4T= 15.1 MOXIMLM= = 25 


LENSTH CE A TRIANGLE IN KG (NKG)= oboe 
NUMBER GF INTEGRATION POINTS (NPG) = 192 


DNeUT OF CONCENTRADED LORDS (4= 0) 


mm a me mm mm ee ee ee ee 
eo eee ee ee ee ee ee ee ee ee ee ee 


Gamoe Ur NODRL LOPES 


y £ MO0eGs +00 -. 40000E+02 
ooo = CN OC OC lC COC 
} Q .Q0000E+00 .GQ000E+00 


INDEX FOR RESIDUAL COMPUTATION (NRES)= st 
ENE REY (ENERG)= , L4chcEHe 


ABSULUTE VALUE OF MINIMUM PIVOT =  11094E+03 EQUATION: 320 
ALGEBRAIC VALUE= .11094E+03 EQUATION: 320 
DE FERMINANT = ,16934E+09 # 10 #* 1520 


MAX. RESIDUAL VALUE= .&6544E-11 EQUATION 278 


SOLUTIGN 


de? 


PROP: G EL. PROP: 3 GROUP: 


& =e 


-—+ 


si} =_—m, 
Obz5 


& CoS Tr 


ul wo ~4 cn CA 


ee -_— e~ go 
4 =. 


. We is & 4 4: 
“Soon CH & GI Pu 


ca . 


ie) Ge 
w On 


» GO00GE+00 
» HOG0E+00 
» COOQGE+00 
» GO0GCE+00 
»HOGQ0E+02 
» {5CQ0E+03 
. {5000E+91 
» 13000E+G1 
» Lo000E+0i 
» 1S6GHE+S2 
» S000GE+0! 
» 300002 43, 
» SOIC +0: 
» SCUIOE +0! 
»4500GE+01 
» 450005401 
» 45000E+01 
» 45C00E+G1 
» 45000E+94 
» S00D0EtC1 
600005401 
» SOOQ0E+0 1 
»HOOURE+O1 
» 6C00CE+0; 
a1 OG eae 
» PSORCE+O: 
» PI0GGEF+GS 
» SOGCETO} 
» acoe +0: 
. Z00C0E+0i 
» ICCOOE+91 
» F006CE+94 
00002495 
>; UOUUETG, 
» 105005402 
» 500E+02 
» 1038062452 
. \OS00E+a2 
» .05900E+62 
» {COCOE+0E 
» 12CCQEtG? 
1 2O0GE+02 
» 2QQ0E+02 
» cUGOE+02 
» 1 SUN0E+02 


. GO000E+00 
» SGQG0E+0! 
»GOQGGE+E?! 

T0049! 
. :2O00EH EZ 
» 90000 +00 
» SOCGIE+S ! 

» SKINGE+03 
. SUGUUEFOE 

» L2000E+02 
. COGICE+CO 
, O000S+07 
» HOQQGE+0 ! 

» F0900C+0! 
»  COO0E+02 
oGOG0E +00 
» S000GE+01 

»69000=+91 
» J0000E+01 
» ZONES 
» GO0QGE+00 
» SVOG0L+0 4 
» H0000E+0 i 

» S000GE+0i 
» .c900E +02 
» O0000=+00 
. SCCOCE+0! 

»EVUDETO! 
» 20600E +0 
» 12G00E+02 
. QO009E+0¢ 
» 200606401 
~ F0CQ0E+0! 

» J00G0E+04 
» LOU0E+02 
» GIN00=+00 
» SOGQCE+01 

COOKIES 
. S0G00E+0! 
» LZOO9E+O2 
. QOGQ0E+GC 
» SUOQ0E+( 4 
» F0000E+0 i 
© 00002401 
» :COO0E+02 
» QOCGAC+00 


» DOUD9E +00 
» COOIGE+00 
» VO0QUE+00 
. COOGGE+0G 
» IO0G0E+00 
. QOO00E+00 
» OCI00E+00 
« OG00GE+00 
» 9O0005+00 
» 00G00=+00 
 OOGIE+00 
» G0000E +90 
 OOGQUE+00 
» QU000=+60 
» QOGQ0E +00 
. QOGQIE +00 
» 00000E+09 
» OGOCOE +60 
» ONGQQE+O0 
» KO000=+00 
» QONG0E+00 
» GOQQGE+00 
. O0000E +00 
. QOOO0E+00 
~ 9000CE+00 
» 00C00c+00 
 O0OCOE+00 
» GOGQ0E+00 
» CQ00CE+90 
» GOGUGE +00 
. GOCOCE+00 
» OG000L+(K) 
 OGO00E+00 
» OO000E+00 
» QOOOGE +00 
» COOQ0E+00 
 O0OUCE+00 
» 0C0E+00 
. OO000E +00 
» KOG00E+00 
. OOOQ0E+00 
. OGOQGE+00 
» DOCO0E+00 
» GO0O0E+00 
. QOG00E+00 
» 00900c+00 


er 


» Q0000E+00 * 
»GOQQE+O0 # 
~COOQOE+9O + 
~COUGOE+Q) + 
OOCH0E+00 * 


=, Uvole-Ue 
=, S7S07E-02 
7 sdgg0s=n0 
i isOte=e 
» 4076 1-02 
Se (gc enete 
=. Joavee ne 
seocodoms 
eee oe 
‘tgegoe ve 
io eoe! 
ot ooor Uc 
~ 4384ee-16 
» SASSEEWE 


Ac 
tis Cmf}} 


Pood emia 
» ?2461E-02 
»15i19E-01 
-, 13534E-01 
= oer ace 
»(sdace-16 
sHofebe-Ue 
. 18534E-01 
-, 21848E-01 
-, 10633E-01 
. 90018E-16 
»10635c-01 
~2L848E-0i 
~,@Wece-Ul 
= ieee 
. {0682E-15 
acai 
nedtece=Ut 
~, 28033E-01 
=) iS7oleal 
Pieces ee 
ab ofobet: 
»28093E-01 
-, 31019E-01 


124 


» QOCOOE+00 * 
»GOOQRE+00 * 
~0OGG0E+00 * 
OOQUGE+00 # 
~OOOGOE+HIO # 


=, obeca-ve 
=, /geede-US 
-, S6466£-03 
=, (odode VS 
~, 161 325-02 
-, 4046602 
-, 26875E-02 
eeeol seve 
-, ebb /oe-02 
~, 40486F-02 
~, 69088=-0¢ 
=, ddagee-Ue 
eee te 
=, dooce -Ue 
~, 630882-02 
~, 106325-01 
~. 951 42-02 
-, BB742E-Ge 
-, 93194E-02 
~. 10635cE-01 
=, (ocean ul 
= idee 
-, 552-0 
-, [Soot 

-, 15220E-01 
= CUES ESOT 
=e tee 
= 1 Ue 
-, 19421E-01 
~, COBSTE-01 
-, 26879E-01 
-, 25704E-01 
~, 2o306E-01 
~. 2o/04E-01 
-, 25879E-01 
-, SGOB8E-G2 
-. 627666-01 
Covent 
2766E-01 
SBBBE-O1 
1661E-01 


re 


4 


& O18 & 


aS 


deo (pS pe 
we es 


CsI 
a = 


ra om EN 
1 fis b= 


nN ost 
a & 


tea! eet 
ale 
om 
Ly 

i 
5 

ar 


ee 
hat ow! 


aN 


cre 


’ 
‘1 


ur 


4 rm + 


tr 
Cai 


my ogee OO 
~J or cn 


1 


Baty en 


—.j) ™l 


Na t- & 


rae 


4 


woud to oa 4 
Bo 


~~) Ov CA 


» seed? 
 Lseege+e 
. SEOGEHIe 
»iactide toe 
. {SGGGE+02 
coe to¢ 
»LQUOGE+GE 
» {GOGGE +02 
» LS000E +E 
» 5S00E+02 
» 16500E +42 
. 6B0GE+02 
» spovce +02 
» 1a500c+02 
. 1BOQGE+¢2 
» L8QQ0E +02 
» {80GGE +02 
» {BO0GE+CE 
, {F50G=z+02 
PI SseUCESOZ 
5 qaUG=EtGS 
»  FOQ0E+02 
» 19500E+02 
CiGICE+02 
»CLOGGE +e 
2 0005+02 
»2{q00=+02 
cf LQGCE+02 
“500E+C?e 
COQUE+O? 
SAE +02 
PPOO0E +02 
eCOOGE+O2 
>, 


C4OC0E HCE 


Tin fe 
T. ia 


& 


Tacs 
1 
A 


vr 


4 
c 
C40U0T +E 
CAGQ0E+02 
»CS000E +62 
»24Q00E+02 
»2pa00e +02 
» COOQIE+02 
»casuCl +0 
» CaO0E +02 
scowI0=+02 
fC TOROETO? 
»c7Q0GE+02 
»C/OGGE+C2 
2 7000E+02 
» A7000E+02 
»2A5G0=+08 


» CRSOOE +02 


, SRO +E 
»EOUGI=a+03 
 FOQNUETO: 
. 120002402 
» OOOOUE +00 
» 800002401 
» B0000E +01 


a 


» SO0Q0E +61 
»CCONIE+0! 
. IGOUGE+Ci 
» 126005 +02 
 KUCODE+00 
» SOGD0T+04 
 F0000E+0! 
» OG0CE+01 
. POWE+02 
 OOCGOE+AC 
» SUSOCE +O 
»HQO09E+G! 
» 300005401 
» L2OQ0E+02 
» OGOQ0E+00 
» SOGOGE+G6! 
» BOOOCE +0! 
. F0000E+01 
» LEOQOE HF 
» COOQIE+00 
» L0GO0E +01 
» SCCOOE+OS 
© FOCOE+0f 
» Le6G0ct02 
» GUCGGE+00 
» SOUGUE+9T 
» OOOGE+0: 
» 20000E +04 
. L2GG0E+02 
» VO0O0E+00 
» SCCOGE+0! 
» 5000GE+01 
» S0000E+01 
» 12G0GE+C2 
« OGOGOE+00 
» SOOQGE+01 
. FU000E+0! 
» JO0GGE+01 
. £2000E+02 
, OG0OCE+00 
» J00005+01 


~_ 8 = @ 


OOCGGE +08 
» QOOCIE +00 
« GOQQ0E +00 
» OOGOOE +00 
. OQGOCE H10 
» QOO00E +00 
» UOVQGE+09 
, GOdSGE+00 
» OOGOCE +00 
, OO000E+00 
, GOQOCE+00 
» OONGGE+00 
» VOG0KE+00 
» QOOGOE+00 
» COQ00E +00 


- o 2 == = = 


. OGOOCE +00 
» OOUDOE +00 
. QOGQ0E+C0 
. OOUG0E+00 
 COOQOE +06 
» QOOG9E +00 
, GQUC0E +00 
» (O0005+00 
» OOG00E +00 
, COCQGE+00 
» COOQ0E +00 
» QOG0GE+00 
» OOCO0E+69 
» OGQQ0E +00 
. VOC0GE+00 
» QOGO0E +00 
» CIOQDE+CO 
. VOOCOE+00 
. 00000E +00 
» CO0OGE+00 
 O0000EHG 
» OC00DE+00 
» UOOORE+00 
» FOGQE+00 
» COOQOE +00 
» GOOOGE+00 
» GOOQ0E+00 
» Q0000E +00 
» OOU0GE+G0 
» 20G00E+00 
» COO0CE +00 
. VOOOGE+06 
» VOUOOE+00 


= 


Sede oue—(i 
»{41a8F-i5 
Somev=—)1 
mai 9e—-01 

=, S3842E-0! 

lees oi 
. 160398E-15 
» 16637E-01 
» ss84cb-O1 

Saeeenge-Ul 

-, 17981E-0i 

» 18089E-15 

~i798LE-O1 

socl3E-O1 
waedsee-01 

-, 19¢62E-G! 
se0eoon-15 
mlgeece—\li 
waeosce-0! 

~, 415196-01 

~, COAS1E-01 
» 22 548E-15 
. 20481F-01 
Beate Ul 

~, 43842E-01 

PPC1637E-61 
pedonoe-15 
potesia-0i 
43B42E-01 

-, 46019e-01 


Srecroic—(! 


feages--15 
eeTSiE-01 

» 4601 96-01 
~, 48052E-01 
ae Oroce =U: 

»C6B24E-!5 

feeroc--O0l 
. 48092E-01 
=/S00t9E-01 
Sea Gic—Ul 
pessec'-15 
»C473{E-O1 
. 001 9E-01 
» ot A42E-01 
eecdosTE-O! 
Peeioee ie 
»Cb3/E~O1 
» JL842e5-01 
20501 9E-01 
-, 26481E-01 


25 


-, 405815-01 
=, 40c 16E-0! 
~, 40581E-01 
=, 416512-0! 
= Soneee-Ut 
- 491 11e-01 
-, 48774E-01 
= ot leon 
See oee—O 
pala cslett) 
—aeooees ot 
age OL 
-, JOS3ZE-O1 
=, d0516e=e 
—jegnoge—on 
-, 682065-01 
er sc0l—O1 
SpeetGe—Ol 
Set seul 
-, /9099E-01 
Ore 7e—ut 
-, 78406£-51 
=~ fOruiE-Gt 
= reoogse—Ul 
-, SU639E-01 
~, 89800E-O! 
=, A95c6E-01 
-, 89800E-61 
ses oe—o1 
~, 10226E+00 
-. 10146E+00 
eee tC 
-, 10146£+00 
-. 10¢262+00 
-. 11439E+00 
-, 115642400 
~, {1540E+00 
~, 11864E+00 
-, LL439EHO0 
-, 12704£+09 
-, 1Z63S5E+00 
~, 1C609E+00 
~, LZ633E+00 
-, L2704E+00 
-, £4014C+00 
-, 13949E+00 
-, 13928E+00 
~, 13949E+00 
~, 144014E+00 
-, 15370E+600 
~, 15308E+00 


OY 


ie 


m_ 


& i * « * & 
“Irv CY & I fu 


uc) ocx 


--* = 


_~+ rae o-~ F* er 
fea TO 
fee Oe 


-—- + 
fo Ta 
> CJ 


— > ee - we -. -— ‘--« 
“Soci To yo To po Te 
- o> WwW wo ™ o cn 


awd 


~” 
«4 
1 


C 
rm 


nJ 
j 


t 
Ca 


nf 


id 


= 2 a Sop me Rk 
SE & pe SO OE 
“In ON tN Of 


| rd 
[> 
mm 


Sana 


BEDS 
25506 


a 
Leal 


to OAS ra 


w 


»cebode sie 

© MOOOGE +02 
» dQ0R0E +02 
» S00002+02 
 S000GE+08 
eeovce=+02 
oh COE +02 
SOOE+O2 


‘S 
™~ 4 
og 
ic cake CH Ge+tiZ iJ 


— 
. dS00CE+02 
» SSONGE+02 
» SSOCCE +02 
» SUE tO? 
» SS000E H02 
» S450GE +02 
2 d400E +02 
» S450GE +02 
 otaeeere 
» S450G2 +02 
» S6000E +02 
26000E +02 
. S6000E +02 
» 860005 +02 
» SH00CE +02 
2 S/Q00E+02 
» Sf QUOE+02 
2d adu2t0¢2 
» S/Q00E +62 
3 oots+d2 


» SS0CCE+G2 


» SI0NETO? 
» S900CE+02 
» 3 S006E +02 
» S90005+0¢ 
» 405005402 
» 4G500E+02 
» 40500E+02 
405008 +02 
»40500E +02 
» S2000E +02 
»ASHOGE+IE 
~42000E+02 
AC00GE +E 
420005402 
»ASSQ0E+02 
»435005+02 
2435005402 


wey 


"so0GaE=01 
, ‘c000E+HE 
 COGOUE+00 
» SoGI0e+0i 
. 50000E+0 i 
» HCGOE+01 
, 12OS0E+0e 
»OG080=+00 
. SCOQUE+0® 
»HO00CE TOs 
. JO00CE+01 
1 2000E+02 
» QOOQ0E +06 
» SGOGIE+01 
~ G0000E+0 ! 
» FOGG +0 i 
»  COUQE+H 2 
. O006G5+00 
» LOCOVEH) 1 
» HOGKUE+C | 
» SOC00E +01 
» Le6G0E+02 
» QO000E+00 
» AKKUE+0 I 
» FO0COE +H): 
» F0000E +01 
. 1L2L000E+0¢ 
» JOOO0E +00 
» SOQQ0E+0 1 
» 60000z+01 
» JO000E +01 
»{2G00E+02 
Ee 
“BO0QUE+)! 
» S0000Z+01 
» L2000E+H2 
. VOCO0E+00 
» SOO0GE+0: 
» BO0GOE+0 1 
. 30000E+0 1 
» 1CHVO=+02 
» N0C0GE+G0 
» SOG00c +01 
» B000CE+01 
» 300008401 
» LCOQOCE +02 
 NO000E+00 
. SOOQUE+0 4 
. FO000E+01 


» O0000E+00 


060008400 


Pr ge os a 


" dOGQOE+00 


» JSO00E +00 


. OOOSCE+00 


 OGO00E+00 


. 900006 +00 


 HOOQGE +09 


» COGQIE+00 


» OO00GE +00 
. OOOO0E+00 
» HOGO9E+CO 


. GOCOCE +00 


COCO: +00 


. OQ000E+00 


. OGG0E +00 


» COO00E+00 


 OOUQOEHI0 


. GOGQGE+C0 


 9G000c+00 


 JOOOOE +00 


 OGQODE+90 


000008 +00 


. OOGOOE+00 


 OOO00E+00 


 QOO00E +00 


. QO000E+00 


» COOODE+00 


» COOQ0E +00 


» C0000= +00 


. COO00E +00 


 COODGE+O0 


 NO000E+00 


 GOQODE+00 


 OOOOOE +10 


 OO000E +00 


 COOGQE+00 


» 90000e +00 


 CO000E +00 


~ OO000E+00 


» OO0Q0E+CO 


. QOOOUE+00 


 QOVOCE +00 


» X000E+00 


 COOOCE+00 


. OOOO0E+00 


. OQ0G0E +00 


 OO000E+00 


. DOCQ0E+00 


 OO000E+00 


paggize-15 
»c648lE-0! 
SSS 1SEF0l 
~,su032E-01 
sueten2e—O i 
» S07 40E-15 
»c/c6cE-0! 
goeugee-Ot 
»doulaE-01 
-. 27981E-01 
» 88587E-15 
27 98:5£-0! 
. soul 8E-0f 
sareete-0! 
»26657=2-01 
~41094E-15 
»28637E-01 
»J/B41E-O1 
. 3903 7E-01 
—~seeesgee-0t 
ACTIIE-15 
sesesee-Ol 
2 J9017E-0! 
-, 600S0E-01 
-, 29754E-01 
~44969E-15 
o SFTE4E-Oi 
. 60090E-0 
-, 6101 3E-0! 
-, S0234E-0i 
»46387E-15 
. S0234E-01 
»6L013E-01 
— le ee 
-, 30645€-01 
A7TAOLE=<15 
» S0645E-01 
»6183iE-0; 
-, 62492E-01 
-,603997E-01 
~48161E-15 
» 80997E-O1 
» 62492501 
-.63044E-01 
-, $12595E-0! 
»48999E-15 
» di235E-01 
.63044E-01 
-, 6341 1E-Ol 
-. SL544E-01 
~S490LE-15 


FZ '6 


-, 15e¢88E+00 
-, 15308E+00 
~, 153705+00 
-. 16764E+00 
-, 16708E +00 
-, 16690E+00 
-, 16708£ +00 
~, 16754E+00 
-, 18198e+00 
-. [8 146E+00 
-, 18128&+00 
-. [8146E+00 
-, 18198E+00 
-. 19664E+00) 
-, 19618E+00 
-, {9603E+04 
-, 196185+00 
-. (J664E+00 
-. 21 165E+00 
“cbizit+Ho 
-. 21106£+00 
-, 2LL2tE+00 
-. 21 165E+00 
-. C2689E+00) 
—"eedeceteU 
-. 22640E +00 
-, 2eba2E+00 
-, 22689E+00 

~. 24e4e5+00 
-, CAZ0BE+00 
-, 241 975+00 
-, Z4Z08E+0 
—, 24 c425+00 
—Hesovde +00 
-, 23786E+00 
=S2or 1 1E+00 
=jcaeeoe tO) 
-, COBLSE+00 
-. 27 408E+00 
“sc PObGc +00 
-. 2737 3e+00 
-, C7 3BSE+00 
-, 27408E+00 
-. C901 6£+00 
-, 28994E+00 
-, CB9B6E+00 
-, 28994E+00 
-. 29016E+00 
-. 306354E+00 
-, S0618E+00 
-. 506 10E+00 


te ors --*% te ee 
CN cn CN CH & 
GJ fa ee & 1 


on 
~~ 


mA 


—" 
~ 


“ge pe le Oke & 
Om O&O mm CA CA CN ON CU 
Wor = &) uf oo mr 


os 8-8 
oO 
= 


HoavGetue 
PA SoOrercc 
AQ +02 
oABGONE TOE 
RE E+Q2 


§50002+02 


450002 +02 
» 4OD0GE +02 
465005422 
» $506E+02 
465005402 
465005 +02 
 480C0E HI2 
© 489002+02 
» 4600CE+02 
 44000E+02 


on 
cn 


480005 +02 


{ .iSQGOE+O! 


ry 


. SOGOQE +01 


3 .L9000E+)! 


CONTAINTES DANS L EL 


0.6. X 


i» 49000E+01 


. HUQQGE+0: 


ree 


3 .45000E+01 


CONTAIN eS GANS L cLEMENT 
X 


» 30000E+6: 
oi 2Guue+02 
. OOQUCE +00 
» SOGOUE+OL 
. BUQGUE+0 f 
» G00GE+0 1 
. LPU0GE +02 
» COGHOE+00 
» SOE +O! 
» FOGG0E+0L 
. J0000E+9 1 
» L2GGGE+02 
» I0000E+00 
» SOOKU=+01 
» F0000E +01 
» FGGGOE+0 1 
. L2000E +02 


 GO000E+00 


» SQOOOE+0 1 


» SOUGOE+01 


EMENT 


 QOOQUE +0 


 SOG00E+01 


» SO000E+0! 


CONTRINTES DANS L ELEMENT 
P.6, X x 
i . /QQQ0E+01 =. Q0000E+00 - 
2 .XGQ0E+0! =. S0QQ0E+01 


 CO0WE +00 
» GOOIGE +00 
» QOQOGE +00 
. GOIGIE +O 
 OOCO0E +00 
 OOCUGE+00 
. QOQ00E +00 
» OO0D0E+00 
» QOQOGE+00 
 HOQ00E +00 
. COOQE+00 
. OGOGOE +00 
» DOQOQE+00 
» (GOOGE+00 
 OQOOCE +00 
. COOCdE +00 


 OG0RE+00 


=P5X 


peeodcoe—Uc 


~, {1654-02 


erg) Jeeve 


metcey se ovc 


ePax 


- 
Ta | 


432E-0 


ra 


= 107 sae—0c 


WS1544E-0! » S06 16E+00 
634i fe-01 SU634E+00 
-, 63649E-01 seca 7E+00 
-. 31 7508-01 » SC245E+00 
»61189E-15 SeC44E +00 
234 /g0E-0 1 » Sec 49E+00 
»65645E-01 PoceaTenue 
-. 6381 3E-01 » SSG 73E+00 
-, 1878-01 . SSBB4E+00 
.69434E-15 » SOTIZETAY 
. 31878E-0! » SSBB4EH0 
»b38iSE-01 5587 5E400 
-, 65868E-01 2 30477E+00 
-, SL823E-01 » S000 7E+00 
»669S9E-15 » SIESOEHIO 
» Si 823E-01 » SO007E+ON 

. 6S868E-01 -, S04 77E+00 
ERSY GAMXY Sisx 
S161 


»2BBS4E-03 


»18747E-03 


cPSy 


 SI440E-03 


»29S04E-03 


m7 2 6 


SPSY 


» JIB44E-03 


DITTIE-O3 -. 44555E-05 


. 1075BE=03 


»487B0E-03 -. 407i4E+0¢2 
-, S6503E+0! 
GAMXY SiGx 
SIsi 
» JUSUBE-04 ~-, 7I95SE+O2 
-, 1S11S5E+00 
27 446-03 -, 34847E+02 
2387 S2E+00 
-, C8349E-03 -. S68S1E+HE 
oot S0E+00 
GAMXY SI&X 
S1St 


»JO9ISE-04 -.6/7S14E+02 
»69751c-0t 
CougaeoUS = 


321 88E +02 


8079302 


. {2208E+00 
ssoseletUc 
»4554SE+0! 
» 41638E+02 


Si6Y 
5162 


» Ls6cbe 00 
» A958E+0e 
» /9468E-0i 
»SULQDE+Ud 
»606i8E-O1 
.3/ 6sEetd? 


SI6Y 
$1G¢ 


» FIS02E-01 
66/81 5et+02 
642 31E-01 
ALA ShEt+00 -, SESS8E+L 


TAUXY 
TRUMAX 


804i 8E+02 -. 45714E+0! -. SS467EH): 
»4L96SE+01 
» S01 L4E+02 
2 AS SeE-Oi 


.seessete? 
eles Ueetul 
W1/34se+02 
WO S6E+O! 
 LI004E +02 


TRURY 
TAUMAX 


. 6066 5E+00 
o SIIVSETUZ 
oc dod 
ol ieee 
» S401 9E+01 
» i8/07E+02 


en) 


TRUXY 
TAUMAX 


»61096E+09 
poosc dec 
» 33785E+01 
»164768+02 


i. 
~ 


» POOQ0E +01 


CONTFAINTES DANS L 


4.6. 


K 


2 OSG0EH)2 


»  COO0E+E 


» OS00EH 2 


CONTAINTES DANS L 


Pp, G. 


ro 


X 


» LSSOUE+02 


» LQ000E Hd 


» LSSG0EHW? 


CONTRINTES DANS L 


7.6. 


fi 


X 


» L6500E +02 


. LBOOUEH Ee 


» L6500E +02 


CONTAINTES DANS L 


B.G. 


ro 


CJ 


X 


» LISOGE+0? 


» SUCOCE +01 


ELEMENT 
7 


» OGQOOE +20 


. SOG00E+0; 


. SOOQUE+0 1 


ELEMENT 


. DOGOOE+C0 


» S0000E +05 


» SOOQOE+0! 


ELEMENT 


 COOOGE +O 


» SOOOCE+0i 


_— 


a1 1400E-02 


62031 7E-02 


. 58726E-03 


. 10S5cE—-0e 


.159163E-02 


. 90326E-03 


» 3S71SVE-03 


1/4958 =02 


»81965E-03 


»SOODOEH): -. BBBS1E-03 


ELEMENT 


7 


= PSX 


OOOODE+00 -. L98sSE-0d 


. SO000EO! -. 75628E-03 


~ SOOODE+O! -. 80516E-03 


- LOas ease, 


ot 


.ol67%eace =. 


L484 SE-03 -. 


»25621E-03 -. 


ERSY 


~47498E-03 -. 


Co; aes = 


»24497ES0S =. 


EDSY 


W43328E-03 -. 


»CUB40E-03 -. 


C4OSE-VS =, 


EPSY 


SJL ESO soe 


»18S55E-03 -. 


»CUSEBE=O5 —. 


1a 


CACS62-03 -. S41 77E+02 . 9B91GE-0: 
~42648E+00 -. S45045E+02 
bAMXY STbx Sisy 
Sit Sigg 
O7160E-O4 -. 62479E+02 -. 11664E+00 
-, 10910=+00 -. 62486E+02 
C8138e-G3 -. Z3605E+0" .51747E-0} 
4SLS4E+00 -, 29984E+02 
CBS1SE-05 -. S1647E+02 =. 74499E-01 
43434E+00 -. SZO06E+02 
GAMXY S16Xx Si6Y 
S16! Slb2 
SIOSSE-04 -,57SeeE+0?2 -. 13088E+00 
-, {2713E+00 -. S7SS0E+02 
CBLLSE-03 -.2708SE+02 . 48224E-01 


46195Et00 -. 27496E+02 


COSISEGe=, col4ic We”. Gon (enon 
oS0616E+00 -. 2ISSSE+02 
GAMXY SI6X SiGY 
5161 $162 
SISOGE-04 -. SZOSLE+OE -. 13437E+00 
-. 12464E+00 -. 52041E+02 
COLISE-O3 -. 24578E+Ge = .47407E-01 
»J0L2GE+00s=,Pa0scetOe 
26419E-03 -. Cbb40E+0E .61003E-01 
458969E+00 -. 27069E+02 
GAMXY SiGX SIGY 
$161 S162 
N9604E-04 -. 47933E+02 -. S514E+00 
-. 12435E+00 -. 479442+02 
CHLISE-OSssneeOiewe .Aiceoe ou 
OLSE+O0 -, 22580E+02 
2B42e4E-03 -. 24140EHZ .60378E-0i 


SIIBEHK) -. 2461 1E+02 


~. SS667Et0! 
1 7465E+02 


TAUXY 
TRUMAX 


~, 6855922+00 
. 31 19Sera2 
-, SS766E+01 
» LS2OHE+E 
-, S397 7E401 
» L6220E+02 


TAUXY 
TRUMAX 


-. 70866E +00 
ZB704E +02 
-. 33/4geeen 
. LoSPFEHE 
-. S4078E+01 


149952 +02 


THUXY 
TAUMAX 


-, TLAOTE+64 
. 26208E+02 
-, 33736€+0! 
 12768E+02 
~, 341036401 
137 79E+02 


TAUXY 
TAUMAX 


-, /l oe 
237 LOE+02 
-, S37 SUE+ 
. 11565E+0¢2 
-, S41 09E+01 
. e57cEHW Ee 


-64, 4 


TerA 7 


f 
o 
al 
fos 


i 
a 
ru 
tJ 





CONTAINTES DANG L ELEMENT 8 
¥.6, X i eran =poY GAMXY 316X 520% THUXY ie 
S61 S162 TRAUMA X 


1 ,ceSO0E+2 .O0000EHIO -. 14i67E-G2 .34994E-05 -. S96c8E-04 -. 4e0S4Et0e -. ISSZ7EHIO -. 7LSD4E +00 “69.0 
eel cGovenenet O4bE te ciel inthe 
PSQQ0EHE .SQQQ0E+01 -. 68294E-03 .i6471E-03 -.cBLIZE-OS -.19S77EHe 14722 7E-01 -. SS7S4ETOL Bens 
HLU9SEtO0 -, COL40E+02 =. LOS /be tO? 
CLOOE+2 .SOQOOE+OL -. 72i83E-03 . 182S4E-05 -, e8425E-03 -. Z1b40E+0e .60246E-01 -. S41 T0E+O1 euler 
woos OetCGeepcelbset0e .1ls74bt0e ~ 


ry 


GJ 


CONTRINTES DANS L ELEMENT a 


PG. X M =HOX eSy GAMXY SI6X SIGY FRUXY (25s 
516! S162 TRAUMA X 
1 ,cosQ0E+He .Q000CE+HCO -. 1L2500E-02 . S0H2Z7E-03 -.59647E-04 -. S7OS4Et02 -—. 1SSLOET0O -. 7i D7 +00 aeons 
paletee edie s 724 /Et 2 187155402 
Bee Oe SUCUGETG1 —.c6550:5-05 .14586e-05 -. cdlick-OS —, 1/07 7ete .47355E-01 -. sS7S5E +0! ste 


Ossie) — 7iietie . Sc0CSetO! 
Beevedovue+O! .SUGU0E+TG! -.638R0E-03 .16151E-03 -. cB424E-05 -.19140E+0e .60¢38E-01 -. S41 09E+01 ae Uacs 
@H4S1BEHH) -, 19728E+0e =. 191 8aS+)2 


CONTAINTES DANS L ELEMENT {0 


P.6. k i EPSX EOSY GAMXY SGX ST6Y TRUXY wea 
S1G1 51G¢ TAUMAX 
1 .28S0GE+H02 =. QOQO0E+O0 -. 108Ssc-02 =. Z6H6ZE-03 -. O9718E-04 -. SESSSEHOE -. LE443E+00 -. 716625 +00 “86. / 


: a oceet Ome dccssenle. . [Seisette 

»SOO0KE+02 .SGQ000E+01 -.48630E-03 .12306E-03 -. 2ALIGE-O03 -. 14577E+02 .48071£-01 -. S3735E+01 See 
» (8867E+00 -. 15s1bet0z . BOSSLE+0! 

~CB8S00E+02Z . SQOCGE+O! -.S5519E-03 .14068E-05 -. 2B4e2E-05 -. i6641E+02 .60316E-01 -. S41 06E+01 -/8.9 
» MOSBEtOO -. L731L0E+02 38. WCOLE+ 


ra 


Gs 


CONTAINTES DANS L ELEMENT Py 
P.G. Y EYSX EPSY BAMXY SIX SIi6Y TRUXY nena 
SI6i 5162 TAUMAX 


on 


1 .SLS00E+H2 .00000E+00 -. F1654E-03 .2cS04E-03 -. 60055E-04 -. c7a29EHe -. 1SQS3E+00 -. 720662 +00 =S6. 
eel TPGSEtUO S27 548E+02.. 137 1SE+ie 
Sos VetCrmesUUGUetUleses0gcbe-04 , 10es6&-03 -.28116e-03 -. 1e07SEt02 .OLL08E-0: -. 337S9E+0! 13. 
| F2BS9EHI0 -. 12954E+02 =. G940S5E+01 
3 .31300E+02 .30000E+01 -.47197E-03 .119B89E-03 -. 28409E-03 -. 14144E+02 .60720E-01 -. S4090E+01 aie 
@BSH50E+00 -. 149e0et0d . 78780E+0! 


CA 


fie 


CONTAINTES DANS L ELEMENT = te 
P.G. X Y ePSX cASY GAMXY SIGX SIBY TAUXY te 





L249 





SiGi S162 TAUMAX 


1 .d4800E+02 .O0Q000E+00 -, 74945E-05 .18376c-03 -.61633E-04 -seeSlIEtGe -. LYSGBE8O0 -. 7a9GGmede -885 1 
-, 90463c-01 -. c25gREt0e . LI 2eaee 


ro 


—— 


5S -, 9S684E+01 .65076E-01 -. 3s756Rto7 -/ine 
L1cb4e+O1 -. i06ScE+OE =. SAI00E+)1 

3 ,d4500E+02 .S0000E+HO1 -. SE916E-03 .992466-04 -. 2BS4BE-05 -. L16S59E+02 .6260SE-01 -. S4015E+01 -74,9 

»S7B8S0E+00 -.125/SE0E 1577 agee 


»SHOQOE+HE . SQGQUEtO! -. S2015E-03 .B207cE-04 -. CBI SOE 


CONTAINTES DANS | ELEMENT 1g 
PG. X Y EYSX EBSY BAMXY SGX GIBY TRUXY 2E54 
S161 $162 TAUMAX 


1 .S7SQ0E+02 .QO0GQGE+00 -.S80D7E-03 . 14368E-03 -. 686C1E-04 -. L74e9E+02 -.46786E-01 -. 82345E+00 87a 
~, (B6s0e-02 -. 17468E+02 . 87 25am 

C .S9OQOEHM2 .SQGGEtG] -.2csB/72E-03 .65479E-04 -. cBIB9E-03 -. /1S1SE+#01 . 1c1S6E+00 ieee “68. 5 
»1454S3E+01 -. 846408401 . 4959CE+01 

3 .SfSQUEHI2 .SOOCOE+O! -. S0820E-03 ./79265E-04 -. cBOBIE-O3 -. 9¢2BSE+01 . /0860E-0i -. $3 /06E+H1 —jean) 
@L1641E+01 -. 10SecE+O2 =. 574e8E +1 


CONTAINTES DANS L ELEMENT i4 
P.G. X Y EYSX EPSY CAMXY S16x SI6Y TAUXY rif 
S161 $162 FAUMBX 


1 .40S00E+02 .0QG00E+00 -.404¢9E-03 .10677E-03 -. 9555cE-04 -. 1208SE+0E =. 1Besee +00 -. 11 466E+0! ~B407 
»CBBSTIEHIO -. icl BEML .bedF1EtO! 

2 .42000E+02 .SOOGOE+O! -. 16265E-03 .49449E-04 -. cBS51E-03 -. 480925401 .2B117E+00 —. 34053E+01 -63.4 
JAZBSGE+O) -. 651SBE+O] =. 4¢49GE+01 

$ .40500E+02 . SQUOOE+O] -.2346c5-05 .G18SGE-04 -. 271 78E-03 -. 70iScE+O] =. LOI62E+00 -. 326i 4E+01 -3, 7 
LS7OSE+01 -. B2BI9E+O] =. 48eb1E+)1 


CONTAINTES DANS L ELEMENT iS 
P.O. X Y cPSX =poy GAMXY S1GX - SI6Y TRUXY FeiA 
S161 S162 TAUMAX 


1 ..4S900EH2E .QQ00UEHIO -.20LScE-0S .60935E-04 -. L57c2E-03 -. S96iGEHI] .35779E+00 -, 1SBGeeea ~143 
BSF64E+00 -. B4d29E+01 =. S671 3E+01 

2 ASOOGEH2 .SOGQCE+01 -.94911E-04 .21937E-04 -.c807SsE-03 -.28617E+0i -.S73iczE-0i —, caaeeene! saee 
CIB94E+01 -.51084e+01 =. S6489E+)i 

3 .43000E+02 .S0Q00E+0! -, 18016E~0S .49195E-04 -.26112E-03S -.SS717EHI1 .1aeScE+i0 =lSisoeeee =6on6 
o1SDlce+01 -.67899E+01 «407i: 


CONTAINTES DANS © CLEMENT i6 
P.6. X Y EPSX cPSY GAMXY S16X SI6Y TAUXY Teh 
S161 S162 TAUMAX 


1 .48500E+0¢2 .00000E+00 -. 7S1icE-04 .LI770E-03 -. SOZ10E-04 -.1S979E+01 .SIBISEH): -. 60c5SE100 =G25 


i 0 


2 ,48000E+02 


3 .46500E+02 


CONTAINTES DANS L 


0.6. k 


L .1S00CE+H)! 


@ « 19000EH)! 


3  .00G00E+00 


CONTAINTES DAMS L 


P.&. X 


1 .45000E+0! 


¢ .4S000E+0! 


3. S0000E+0! 


CONTAINTES DANS L 


me G6. X 


i . TSQQUE+0 


¢ . /S000E+0i 


3 .60000E+0! 


» 5OCKOE+01 


 F0000E+0! 


» SOOOUE+01 -. 


» 60000E+01 


»SCOQDE+0, .7SL12E-04 -. 
»SOQQOETOL .22904E-17 -. 


cLEMENT i? 


7 Seok 


. SOOOOE+O! -. LiS3BE-02 


»94548E-17 


e SQOODE+HOL -. LISG8E-V2 


ELEMENT «18 


Y =P5X 


» SOOQOE+O! -. 1¢376E-02 


»L{O0S1E-16 


{2376E-02 


pouc@@rror —. Lisi te-Ce 


. 10500E-16 


. SOUQOE+O! -, LISL1E-Ge 


CONTAINTES DANS L ELEMENT = 20) 


D, G6. i 


1. L0500E+02 


& .10S00E+02 


 B0000E+01 


Y EPSX 


» SOOQOE+01 -. 10640E-02 


254 /9E-03 


PU EE OS 


BEY 


»63565E-04 


» 6S565E-04 


. GOOGOE+00 


EPSY 


eo. cOccauS 


. 1/682E-04 


» 2B854E-03 


ERSY 


22897 3E-05 


4304 1E-06 


»29304E-03 


ero! 


eon 


miogeic=0S 


pceudor qo 


GAMXY 


 SCLEEE-03 


Mi gaose-es 


.10756£-03 


GAMXY 


22935/75E-05 


-45co7E-03 


» 27 44EE-03 


GAMXY 


per eSoes0S 


»49378E-03 


GAMXY 


»26/786E-03 ~. 282c0E-03 -. $1906E+02 

41431E+00 -. S2eb0E+02 
» 10764E-16 -,24726E-05 -. 48140E-03 -. 
ICT4EtO! -. SBZ6SEH)! 


~SCOIEE+0I -. 
~SOL26E+00 -. 
6L06GE+00 -, 
, SeGeEtOl =. 
igigsceale ~, 


» S64 4E +02 -, 
POcveletUi. =. 
» S0BSZE+00 
sd/dpoet0l =. 
~S69ecEHMY —. J2S0HE+0! 
Bo. UoesL =, 


 S/LOZE+02 
AShelEHO -, 
2142466400 -, 
wiveseerUl =, 
oS/CS4E+02 -. 
2 3/snde+00 -. 


» 451 7E+02 
JOZ93EHI0 -, 
» 344 35E-02 
J9sese+0i -. 
»CHi54E-03 -, $4491 E+02 
~49476E+00 -. 


147a9e+0! 
7S0B4E+C i 
78778E+0} 
G0834E+0! 
7604 3E+01 


5 1GX 
Si6! S162 


Ti9egE +01 
S091 de+02 
» 20341 £+01 
Dae +t 


J698ce+0e 


516X 
S161 


SiGY 
S162 


. 105215400 
37432E+02 
06584E+00 
237iz+0i 
667S1E+0G 
37 O88E+02 


ror 
S162 


SI6X 
Sib! 


» 65¢B8E-01 
S4827E +02 
ii G77GEs01 
JoIB7E+O! 
. L6850E+00 
S481 7E +02 


SGX SIGY 
S161 51Ge 
» 09492E-01 


I97S1E-O01 -. 79124E-O1 


peor fet} 
ASSOBEH)! 
2 


44e=+)! 


S041 7E+0! 
» SEOZLE+O4 


TRUXY 
TAUMAX 


~SO/IFEH 
pl oi ese te 
»ZSSE4E+0 | 
246 /eeril 
. 12907E+01 
»1s906e +02 


TAUAY 
TAUMAX 


o duC4BETO! 
» LBIS4E+02 
JO/FEE+0! 
db s4e+01 
oe gusedtoL 
L860 7E+W 


TRUXY 
TAUMAX 


. SS400E+01 
ATEL0E+O2 
soyese rl 
sOscece tl 
. 53785E+01 
2 7656Et0?2 


TAUXY 
TRUMAX 


» SSB64E+01 
mioso eve 
.3//68E+0! 
TSF +O! 


ge 
me 
oe 


“04.4 


Tara 


te | 


“94.6 


-44,0) 


=O409 


t 
co 
> 
cn 


4 


-84,0 


-44,9 


3 


. JOO0CE+0! 


CONTAINTES DANS i 


P.G. 


es 


ro 


C.J 


CONTAINTES DANS L ELEMENT 


0.6. 


reo 


i 


» 1 SQ00E+0¢ 


1 3500E +02 


. 1L2GQ0E+02 


X 


. 16500E+02 


. 1BS00E +02 


. LSOGOE+02 


CONTAINTES DANS L 


P.G. 


X 


»1950e+02 


. L9SQ0E+02 


. 18000E+02 


CONTAINTES DANS L 


P.G. 


} 


& 
c 


3 


X 


» CES00E HE 


» LCOWOE +02 


 2LQ00E+02 


ELEMENT 


» SOOOGE+OS -. 10540E-02 


ELEMENT 86s el 
i‘ eOSX 
» SOOGOEHOL -. 97960E-03 
-60000E+01 .12890E-16 


. SOOOOE+)! -. 97560E-03 


ro 
tw 


Y =Pox 


. SOOGDE+O! -. 8960ZE-03 
~SGQCCE+01 = .19957E-16 


~SQOQOE+01 -, 8960CE-03 


a 
C3 


Y = PSX 


. SOUOGE+O! -. Bi265E-03 
~G0000E+01 . 14105E-16 


. SOOQOUEHOL -, 81265E-03 


ELEMENT  c4 


i EPSX 


. SOOO0E+01 -. 72929E-05 


 60000E+01 


. SOOOCEHO1 -. 72929E-03 


270375-03 -, COISGE-CS =. Sees 


ied /2 


~LS977E+00 -. 3376540] 


ANG1+00 -. 3eeSBE+He . L6365E+I¢ 
EPSY GAM XY SGX Si6Y TAUXY 
SiG! 9162 TAUMAX 
C4677E-03 -. 28S75E-03 -. c9S73EHe .S99ZIE-O1 -. SACRO] 
ASBOFEHOO -.2975eE+0e . 15105Et02 
-. S78B7E-03 -. 477498-03 -. SOSIGE-O1 -. 12NZ4E400 -. O72 3meeaG! 
»SOS4SE+01 —. SB0S9EHO1 =. 57 S01E+01 
C4B45E-03 -. CBLISE-O3 -.e9SH0EMWe .11298E+00 -. 5374SE+01 
AI4S6E+HH -. CIVALEMIe . 1OL18E+0e 
Boor GAMXY S16X SiGY TAUXY 
S161 S162 TAUMAX 
»CCOBBE-O3 -. CB414E-O3 -. 26865E+02 .60156E-0! -. S4097E+01 
eABSCOE+00 -—. 27291E+02 . 13BBKEtOE 
~ ALSISE-OS -.47656E-03 -. 3S0S¢E-O1 -, [S2e1E+00 -. 37 ieee 
SOSOSEHO! ~. S8OLGE+0! .S5/71B9E+0! 
222730E-05 -. CBI 14E-03 -. c68S4E+Oe . 105S7E+00 —l aay ae 
suclice+00 -.27270E+0e 1 S65BE+02 
EPSY GAMXY SI&X Si6Y TAUXY 
SIGi $162 TAUMAX 
»2OS04E-05 -. CB423E-05 -. 24564E+0E .60195E-01 -. S4107E+01 
COLE +OO —. C4ESIE+0E =. Leb 79EHI 
- 42089E-05 -. 47655E-03 =. dS671E-01 -. 15465E+00 -7 a7 ieee 
SOSZSETOL -. SBOOBE+OL =. S7164E+01 
~20640E-03 -. CGi12E-03 -. C43S3EHWE . 1LOSG0EH00 -. SS7SSEtO! 
THUSIE+0O -. 24810E+0E . 12685E+02 
Brot GAMXY SIGX SI6Y TRUXY 
S161 3!G2 TAUMAX 
» 18420E-03 -. 28424E-03 -.c1864E+0E 9 .60219E-01 -. S4109E+)1 
OTBE4E+00 -. ce d8eE+02 . 1L480E+02 
~76941E-17 -. 42250E-05 -. 47631E-03 -. SSB800E-01 -. iZ5E0E+OO -. 37 Taee 
VHSL4E+0! -. SBOU4E+O1 .57159E+01 
»18S5SE-03 -. cBlicE-O3 -. 2185SE+0e .10S22E+00 -. Saeed 
6F0984E+00 -. ce SS9E+0e =. 11485E+0¢ 


-84,( 


-81.4 


-§4,7 


ms 


CONTAINTES DANS L ELEMENT = 20 
P.G, X M EDSX eyoY GAMXY SIGX 
SIG! 


1 ,@S5Q0E+02 .30000E+01 -.645956-03 .16337E-03 -. 2B425E-03 -. 19564E+02 
641855 +00 
SESSQCE+OZ =. BOOOUE+O1 .17713E-16 -.42267E-05 -.47629E-03 -. 3814-01 
SS631CE+0! 
3 .Z4QQ0EHI2 =. 30000E+01 -.64595E-03 . {64712-0383 -, eB112E-03 -, 19S5IE We 


Fo 


26/71 48E+00 
CONTAINTES DAMS L ELEMENT = 26 
P.6. X Y ePoxX EPSY GAMXY S1bX 
5161 
1 .c8S00E+02 . S00Q0E+01 -. S6263E-03 .14255E-03 -. 2B425E-03 -. 16864E+H2 
» (2206E +00 
¢ .2BS0EHE .G0000E+0? .12006E-16 -.4e187E-05 -.47625E-03 -. SS749E-01 
 JOS08E +O 
3 .c70G0E+0e .SQQQ0E+H0L -. S6260E-03 . L458BE-08 -. CBIISE-O3 -. 164355E+02 
» J4976E+00 
CONTAINTES DANS L ELEMENT = e7 
PG. X Y E0SX EPSY SAMXY Si6x 
Si6l 
1 .SfSQ0E+02 . S0000E+0L -.47934E-05 Ici 77E-03 -. CB41SE-03 -. 14365E+02 
232716 +00 
€ .SOQ0E+2 .G0000EH)1 .17847E-16 -.41771E-05 -.47605E-03 -. 3341 7E-0 
J629.5E +0 1 
3 .JQUO0E+02 .SOQQ0E+0! -.47934E-03 .12508E-03 -. 2BLIGE-OS -. 14554E+02 
»85224E +00 
CONTAINTES DANS L ELEMENT 28 
P.G. X i EPSX EPSY GAMXY S16X 
Gian 


D sOHQUUE Ue .cCUU0ETUL —7S562Gk-05 .1GLT7E-Os -. 28S80E-03 -. LIB 70E+0E 


9 /Q8SE+00 
© .34500EWe .B0000E+01 .12916E-16 -. 39840E-05 -. 47515E-03 -. 3187c£-01 
 J6C23E+0 1 
3 .dSQ0GEHe .SQQ00E+)1 -, 3962SE-03 .102S6E-03 -. 2B130E-03 -. 11860E+02 
 I9230E+00 
CONTAINTES DANS L ELEMENT = £29 
P.&, X Y EPSX EPSY GAMXY S16X 


oS 


SI6Y 
$162 


»60277E-01 
-, 19945E+02 
=) omayera ses 69) 
-, SH002E+01 

» 1OS16E+00 
=, 19921E+0e 


SI6Y 
Sioa 


»60545E-01 
Bede foc 
-, LSS00EHIO 
-.0/996E+01 

» 10S25E +00 
-. 17500E+02 


S16Y 
$162 


6i815E-0! 
=wlaesterve 
-, 1S367E+00 
-, 3/7 964E+01 
. 10367E+00 
=, IS103E+02 


Si6Y 
S1G¢ 


»67654E-O1 
-, L2773E+02 
-, 12749E+00 
-, 0/781 7E+01 

»10S7SE+00 
-, 127478 +02 


SI6Y 


TAUXY 
TAUMAX 


-, S41 09E+01 
» 10Z9SE+02 
era) a lode 
WOIS7E+0! 
Sis eden! 
 10296E+02 


TAUXY 
TAUMAX 


-, S41 08E +01 
ae ea econ 
Sey aoe tl 
po oeetih 
=, SS7S0E+01 
2 91¢47=+01 


TRUXY 
TAUMAX 


-, S405HE+0! 
» T3785E+0i 
= aves San) 
oes e wl 
= SiG tans 
my oVToer 


TAUXY 
FRUMAX 


-, $4056E +01 
» 68720E+01 
-, S/0L8E+01 
oJ/0Z9E+01 
-, Sd doe tO! 
»68697E+01 


TAUXY 


721A 


-80.35 
Bary 


-60), 4 


-——- 
re; 
wii? 


Soul 


-— 
t- 
~J 


fa 


‘io 


~-4 
rig 


1 
~ 
~J 
an 


reyq 


S161 5162 TRUMAX 


fa 
ru 


i .S7OOCE+OZ .SQ00CEHO] -. SISJIE-CS .B1S66E-04 -. 28¢24E-03 -. 9S94SEt01 .S9C467E“1 -. S3BEBE+CI “72. 
LL77Se+01 -. 10479E+0E =. OBE84E+01 

~SIOOE+2 GQ000Et0L . 7441 7E-17 -. SISO1E-05 -.4721SE-03 =.25e01E-01 —. 1008GE+00 -\S6ageaee -44.6 
JOSHI -. S7IG9E+O1 .S6aasees 

BiBSE-O3 -.S3686E+01 .LLSOLE+00 -. SSBZ7E+01 ~Tan 
~11S61E+01 - 10470EHI2 . SBSBE SOF 


fu 


fu 


SOQ00EHWE .SQQQQEHOL ~. SISSIE-OS .82072E-04 -. 


Cad 
Gl 


CONTAINTES DANS L ELEMENT - 30 
P26. X Y EPOX EPSY GAMXY SGX Si6Y TAUXY 
S16i 5162 TAUMAX 


nn 


ON 


1 .40500EWe .SOCOOE+O! -. 23489E-03 .64¢45E-04 -. 27647E-03 -. 70025E+01 .17672E+00 -. SSI7VE+O! =¢oae 
oL4731E+O1 -. B3005E+O1 =. 46880E+01 

¢ .40SQ0E+0E .G0000E+01 .SI90SE-17 -. 17029E-06 -. 45564E-03 -. 1obesE-Oe -. S4495E-02 -. S4677EH! —So 
4O4S2E+01 -. 47115401 .54677E+01 

~SIOCOEH2 . SCOOCE+01 -.23489E-03 .65479E-04 -. 2BS61E-03 -. 70086E+HO! . iS22SE+00 -. S40S3E+01 =$de2 
oLSLI7E+01 -. B3e80E+O1 .435gmErt! 


&) 


CONTAINTES DANS L ELEMENT = $1 
9.6. X Y EPSX EDGY BAMXY Si6X SI6Y TAUXY T25R 
S161 S162 TRUMAX 


1 .48500EHWe .S0000E+0! -. 16606E-05 .48477E-04 -, c667SE-03 -.49¢c62E+O1 . eee 77E+H00 -, SCO0EE+O! “64.4 
eL7SBOEH0L ~.64594E+0i .41077E+01 

2 .A4ASHKOEHZ .G0000EHL .40635E-16 .35364E-05 -.420!4E-05 .cBESLE-O1 .LISIGE+00 -. 5041 7EHW! “43.2 
OLICE+OL -.A9711E+01 =. 5041 9E+01 

3 .42000E+02 .SOCCOEHL -. 16606E-03 .49449E-04 -. cBC7SE-03 -.49164e+0: §. cOSGEtO -. S3688E+01 =6370 
LQI47E+OL -.6579¢E+01 . 42469E+)1 


CONTAINTES DANS L ELEMENT = Se 
0.6. X YY EDSX EpSY GAIXY S16X SI6Y TRUXY TeTs 
S161 S162 TAUMAX 


1 .46500E+0e .SQQQ0EHO! -. &Si47E-04 -. BB8C4E-04 -.41347E-03 -. S4S0SE+01 -. dSeS5E+0! -. 4961 6E+01 -44,7 
14824E+O1 -.B4415E+0l =. 49618E+01 

2 .46500EH2 .60000E+01 .19166E-16 -. 10056E-03 -.68437c-03 -. B045cE+H00 -. S2SH1E+O1 -. B2ic5E+01 -40.6 
-6289SE+0! -. 10312E+02 .85007E+0! 

3 .45000E+02 .SQ0Q0EH)1 -.BS147E-04 .21937E-04 -. 1SES7E-O3 -. CO49ZEHW] =. 20799E-01 -. 1S908E+01 “64.5 
»/BO7BEHM) -. S309CE+H0L =. CO4S0EHI1 


CONTAINTES DRNS L ELEMENT 86-33 
P.6. X Y EPSX EPSY GAMXY SI6X SI6Y TAUXY TeT9 
S61 Si6e TAUMAX 


1 .15Q00E+01 .60000E+H0L .94548E-17 -. 63565E-04 -. 19SDSE-03 -. SOBSEEHO -. COSSIEH] -. cS464E+01 =soa! 


134 


2 .i9000E+)1 


3 , QO0Q0E+00 


CONTAINTES DANS L 
P.6. X 


i .45000E+01 


re 


» 45000E+01 


3 .S0000E+01 


CONTAINTES DANS L 
P.6. X 


1 . 73000E+O1 


& .73000E+01 


3 ,60000E+01 


CONTAINTES DANS L 
Pp, 6. x 


1 . 10500E+02 


re 


. LOS00E +02 


5 . F0Q0Q0E+01 


CONTAINTES DANS 1 
P.6. X 


1 .1s500E+02 


¢ .1SS00E+2 


 SOGGOE+) 1 


. JQQQUE+01 


CLEMENT 


» 60000E+01 


 FO000E+0 1 


» SCOO0E +07 


ELEMENT 


Y 


»F00Q0E+01 


 OOG0E+01 


 IOOOOE+0 1 


ELEMENT 


¥ 


» SOQQ0E +01 


» FOGQ0E+0 1 


» JOCOOE+0 1 


ELEMENT 


Y 


 GO000E+01 


» JOQOOE+0 1 


34 


$3 


36 


37 


Pl 1ga9e—02 


» L1538E-02 


= PSX 


» LOOS1E-16 


a reo oeelc 


EPSX 


. :0S00E-16 


mr olle-de 


evox 


» 10764E-16 


EPSX 


. ic830E-16 


~FIIB0E-03 -. 24677E-03 -. 


—. 63560E-04 


» WO000E +00 


» 17682E-04 


micdibe—Ue —. dicbce 05 


» LBBS4E-03 


EPGY 


»45041E-06 


,CO9Toe-0S 


oLISLLE-O2 -. CISO4E-03 


EPSY 


»24726E-05 


» 10640E-Oe -. 26786E-03 


ESSY 


HESS 


10640E-0e -. 27037E-03 -. 


-sreg/E-05 -. 


.Se256E-035 


 10756E-05 


GAMXY 


 48997E-03 


scosuoeS 


227 446E-03 


GAMXY 


»49378E-03 


»27BSSEOS 


» CBI S4E-03 


GAAXY 


» 481 40E-03 


»2B220E-03 


ras 


281 58E-03 


GAMXY 


4774FE-0S 


28375E-03 


=, SI 3855401 
7 L96SE+0! 
»60921E+01 
» IZS06E+01 
» 31706E+01 


OER) 30h 
354 14E +02 
5691 8etd?2 
 So922E +02 
»SO98ZE + 


SIGY 
S162 


S16X 
S161 


» 14146E+00 
POCSTIEH -. 


» Jos84e +00 
SIC IBEFO! 


» S7i0GEHE -. 10SZ1E+00 
S4SSEHIE -. 4S421E+00 
SISIGE+OZ =. BB7S1E+00 
»SfOBREH 2 . S7SDCE+O0 
S1GX SIbY 
S161 S162 


13773E-01 
DISS9E+0 
63c88E-01 
S8293E+00 
16850E+00 
454765+00 


» FA4SSE-O2 -. 
so bfetOl =; 
poHe ete = 
Sagcretlc =, 
soteeeetO2 =. 
S481 7EHie -. 


SIGX 
$161 


ST6Y 
S162 


L97B1E-O1 =. 7314-01 
OZbSE+O! -. 37274e+01 
~ SL90HENWE -. S9492E-Ui 
»Se260E+02 -. 41451E+00 
» SiBBHE+02 -. 15977E+00 
»Sc23BE+0e -. 49191E+00 


S16X 
$161 


SIGY 
S16¢ 


SOSLOE-O1 .12124E+00 
»DBOSSE+O! -. S654se+01 
sCooeEt0e ~. S99eLE-01 
CO/2EHIe -. 44869E+HH) 


~240/c5+0% 
2 36715e+01 
 LSPSEHE 
coe t1 
 1S906E+C 


TAUXY 
TAUMAX 


»SBISEEH)I 


ree 


» Soc48E +O! 
» L89S4E Hic 
» SCISE TO! 
1d69/2+02 


TAUKY 
TAUMAX 


SOC OSu 
eeu SEtO! 
» SS400E+0 1 
oo oe EUS 
»SS/BSEH I 
1765620 


TAUXY 
TRUMAX 


» 0/7 /68E+0 
of 6SE+C! 
» SSBS4E+01 
»L6337E+02 
SST BEETS 
» {6565E+02 


TAUXY 
TAUMAX 


ICSE! 
So ou let! 
 S4050E+01 
efor Uee 02 


roe 


TETA 


TETA 


3 .120WEtHMe .3I0000E+01 .97560E-03 -. 24843E-05 -. 28119E-03 .CISG0E+G2 -. L129B8E+00 -. 33743E+01 -6, é 
CIVSIEWC -.49436E+00 . LSLLBE+e 


CONTAINTES DANS L ELEMENT 38 
P.G. x i EPSX EDSY GAMXY SGX SIGY TRUXY TETA 
SIG] $162 TAUMAX 


i .16500E+02 .G0000E+01 .IS9S7E-16 .41S15E-05 -.47656E-03 .3505cE-G1 . ise2le+00 -. 5710 Rem -45.¢ 
BOLSEHOL -. S6S65E+0! =. 57 1B9E+01 


2 .16500E+02 .90G00E+01 .82602E-03 -.225RBE-03 -.2B414E-03 .26866E+02 -.60136E-01 -. 34097E+01 —Ja 
CIIIE+OE -. 48520E+00 . 13608=+02 
S .15000E+H2 .90000EH)! .89602E-03 -.c2e730E-OS -.c8114E-03 .ecbBSSE+0d -. 105S7E+00 -. SS7eGEe ater 


27270EH02 =, Se L1ZEHOO «=. LSBSREe 


CONTAINTES DANS L ELEMENT 39 
P.6. X i EPSX EPSY BAMXY 516x Si6Y TAUXY Tae 
S161 $1G2 TAUMAX 


1 .19500E+02 .60000E+0i .14105E-16 .4c089E-05 -.47635E-03 .SS671E-01 .13468E+00 -.57162E+0i =H 
»JBO0GEH)] -. S6S2SE+01 = .57164E+)1 


2 .{9500E+02 .S0000E+01 .81263E-03 -. 20D04E-03 -.28423E-05 .c4364Et02 -.60i195E-O1 -. S4107E+01 =a 
sC48S1EHe -. Sc 7D0E+00, slebee ee 
3 .18000E+02 .S90000E+01 .Gic63E-03 -. 20G40E-O3 -.28112E-O3 .24saskt+0d -. 10560E+00 -. SS7SDE+O! la 


PAB 1GEH02 -. 56039E+60 . 12685E+02 


CONTAINTES DANS L ELEMENT 40 
P.6. X i EPSX EPSY GAMXY S16X SIGY FRUXY TETA 
SI6i SiGe ‘ TAUMAX 


1 .c2D00E+He .b0000E+01 .76941E-17 .422S0E-05 -.47631E-03 .33B800E-G1 .1S5e0E+00 -. O715/7E+01 =a 
»08004E+01 -. S6314E+01 .O7159E+01 


2 .22500E+H02 .SIGOQOGE+O] .7e9¢9E-03 -. 18420E-03 -.2B424E-035 .21Bb4E+0E -. 60219E-01 -. S4109E+01 soe 
C2SBCEHe -.37864e+00 =. 11480ct02 
3 .ZlOO0E+02 .S0Q00E+O1 .729¢9E-05 -. 18505E-03 -.cB112E-03 .2i1853E+0e -. i0SccE+00 —l aan =n 


,2O359EHE -.609B4E+00 . 11485E+02 


CONTAINTES DANS L ELEMENT 41 
P.G. X it EPSX cPoY GAMXY SIGX SI6Y TAUXY TETA 
S161 $162 TAUMAX 


1 .e0500E+02 .B0000E+01 .1771SE-16 .42¢67E-05 -.47629E-03 .S3B14E-01 . 1352SE+H0 -.37155E+01 ~45ic 
.OB002E+01 -. S6S1cEt0l .S71S7E+1 


© .coOO0E+He .90000E+01 .b4595E-05 -. 16337E-03 -. c84e5E-03 .19364E+02 -.b0277E-01 -) Same =e 
1 9945E+02 -. 64185E+00 § . LOZSSE+d 
3 .24000EH2 .90000E+0! .64595E-03 -. 16471E-03 -.cG11CE-05 .19S5SE+H0e -. LO316E+00 -. 337S5E+01 =Fat 


.19921E+02 -.67148E+00 . L0e96E+02 


ir 6 


CONTAINTES DANS L CLEMENT 8 4¢ 


PG. k Y EPSX EPSY GAMXY 
1 .c€8500E+02 .G0000E+01 .12006E-16 .42187E-05 -. 47620E-03 
2 ,PBSO0EH2 .HGOOE+O! .56263E-03 -. 14e55E-05 -. c8423E-03 
3 ,27000E+02 9. 90000E+01 .S6263E-03 -. 14388E-05 -. CBI 1SE-05 
CONTRINTES DANS L ELEMENT 43 
2.6. XK Y EPSX ERSY GAMXY 
1 .SiSO0EHe .60000E+01 .17847E-16 .41771E-05 -. 47605E-03 
2 .diSd0E+He .S00CUEHOL .47934E-03 -. 1Z177E-05 -. ZB413E-03 
3 ,S0G00EHIE §=.SQQ00E+0! .47934E-03 -. 12308E-03 -. cB1i6E-03 
CONTAINTES DANS L ELEMENT 44 
#. 6, X i EPSX EPSY GAMXY 
1 .S4500EH2 .60000E+01 .12916E-16° . 39840E-05 -. 47515E-03 
2 ,d4500E+02 .S0Q00E+01 . 356e5E-05 -. 10L17E-03 -. 28380E-03 
3 .SS000EHE .JO000E+01 .S9BCSE-03 -. 10256E-05 -. 2B1S0E-0s 
CONTAINTES DANS L ELEMENT 45 
P.5. K ii EPOX ec PSY GAMXY 
1 .37500E+0e .60000E+01 .74417E-17 . S1S01E-05 -. 47115E-03 
€ .S7S00E+02 .SOQ00E+01 .S1SSIE-03 -.81368E-04 -. c8ee4E“3 
3 .S6000EH0E =. JOO00E+01 .SISSIE-03 -. 82072E-04 -. 28189E-03 
CONTAINTES DANS L ELEMENT 46 
P.G. XK Y EPSX EASY GAMXY 


leo 


SI6X 
S161 


» S3749E-01 
-0/F36E+01 


» L6864EHWE 


SI6Y 
SIG62 


TAUXY 
TAUMAX 


»LSSQ0E+00 -. 97150E+01 


-. J6S08E+01 
-,60545e-0! 


ATMSCEWE -. 72206E+00 


» 16853E+02 


-. 10523E+00 


ATEQOE+2 -. 745976£+00 


ST6xX 
SIG! 


» 3341 7E-O1 


0 /964E+)1 


» L4365E+02 
» 131 30E+02 
» L43554E+0¢ 
»1DL0SE+02 


SIGX 
S161 


Poleveccv! 


JBLTE+OL 


» LL870E+0¢ 
wher ieee 
» LLBECE+0¢ 
»LELTATEHWE 


SIGX 
5161 


»cocvle-O! 


»o/L69E+0 1 


» SS943E+01 
»L0479E+02 
. S38G6E+01 


SIGY 
5162 


» 13367E+00 
-, D629SE+0! 
-, 61815E-01 
-. 82716E+00 
-, 10367E+00 
-, G5 e24E+00 


SI6Y 
5162 


» L27ASE+00 
—Jjsecc Jet 
-, 676354E-01 
-. 97085E+00 
-. 10573E+00 
gd cCSUELOe 


SibY 
$162 


. 10080E +00 
-, DOSOSE+OL 
-, 3246 7E-01 
-, 11775E+01 
-, LISOLE+00 


~10470E+02 -. 11961E+01 


SIGX 


5I6Y 


»J/15cE+)1 


-. S4108E+01 


peste tt 


= Sooo 


»FLZ47E+01 


TAUXY 
FAUMAY 


Sot Leonor 


bof iesetOs 


-. S4098E+01 


»79786cr+0i 


ae ert 


shots 


TAUXY 
TAUMAX 


=. J/G1BE+01 


-. S4036E+01 


6870S +i)! 


=. Sorepeeel 


» 68697E+01 


TAUXY 
TAUMAX 


= JG Dae at! 
Popgadget 
-. S3868E+0 1 
06284 +01 
Sdoeere till 
» SBSZ9E+0! 


TAURY 


TETA 


~} Le Q) 


10, 4 


{ 
An ory 
= 

Os) 


cn 


T2TA 


Aree 


-14, 


ie 


me Aa(, 


Teta 


SIG 5162 TRUMAX 


1 ,40300EHIg =.60000E+0: .S9905E-17 .170Z9E-06 -.45564E-03 =. 1S62SE-0e =. 5449SE-0e -. S4677E+01 -45,.0 
eOS7LIEHOL -. S4642eE+01 .54677E+01 

2 .40500E+02 .JO000E+0i .23489E-05 -. 64245E-04 -.27647E-03 . 700CSEHL -. i 7672E+00 -. S3I177EHW “21.4 
BSOOSE+)1 -. L4751E+01 . 46860E+01 

»COSELE-03 . 700BHEt+O! -. LO2e3E+00 -. S40S3E+01 “21.8 
JB36G0E+01 -. LSLL7E+OL . 49398E+01 


3 .SIQOGE+02 .S0000EHI1 .c3489E-03 -.63479E-04 


CONTAINTES DANS L ELEMENT = 47 
P.6. X \ EPSX EYSY °  bRAXY SIGX SiGY TAUXY ae 
S61 S162 TAUMAX 


1 .43500EH2 .60000E+01 .406S5E-16 -. SOS64E-05 -. 42014E-03 -. CBC9LE-Ol -. LISIBEHW -. 5041 7E+01 -44,& 
oASTIIEHOL -. SLICBE+OL .S04TGESOT 

.266/SE-03 .49cbcEtO) -. ce277E+00 -. S200BE FO! seo 
JH4S94E+O1 -. L7SG0E+0L .410778+01 

3 .42000EH2 .90000E+01 . 16606E-03 -.49449E-04 -.cRO7SE-03 .49184E+01 -. COSB7E+00 -. SS688EH! <5; 
6079CE+O! -, L9L47E+O1 =. 4c¢469E+0i 


cn 
on 


2 .43500E+H02 .S0000E+01 .16606E-05 -. 48477E-04 


un 
ra 


CONTAINTES DANS L ELEMENT 4&8 
P.G. X | EPSX EPSY GAMXY S16x SI6Y TAUXY TeTA 
SI6i $162 TAUMAX 


1 .46500EHE .G00G0E+01 .19IGBE-16 .10056E-03 -.6B437E-03 .BOS52E+00 . 3Z1BLE+O! -. BZ1Z5E+0! =A 
10312E+02 -,62B94Et01 .B3007E+H01 
2 .46500EHe .S0000E+01 .85147E-04 .B88824E-04 -.41547E-03 .S4S53E+01 =. d5eSSE+OL -. 496166401 -45. 
B441SE+01 -. 148e4E+0L . 49618E+01 
3 .45000E+02 .90000E+01 .85147E-04 -, 21937E-04 -. LS2S7E-03 =. cO49ZE+O! -. cO799E-O1 -. iD908E+0! rate re 
SSI CEHN -. 7BU7BEHOO =. CO4S0E+01 


Ce) 


CONTAINTES DANS L ELEMENT 49 


P.6. X 4 EPSX EDSY GAMXY Si6X SI6Y TAUXY Tr if 
S161 olbe FAUMAX 
1 ,15000EH)1 .JQQ00EH)L .13192E-O2 -. 18747E-03 -.48780E-03 .40714e+0e =. 455D43E+01 -, SB0S5E+0! “a0 
ALBSBEHIC =. SHS0SEHOL =. 19004E+02 
© .SQOO00E+O1 .JOQ00E+O! .11694E-02 -, CBGS4E-03 -. 1G7D6E-03 .SSIL4E+e . 1eZOBEt00 -. 1ZS07E+01 <ou 
Jul bIE+HO2 .74O3cE-01 . L/D4SE+Z 
3 .1S000E+O1 .120QWEHWE .cb425E-02 -.S1777E-03 -.44555E-03 .B041BE+e .40714E+01 -. O5467EH)L “4.9 


B0793E+02 .41965E+01 =. 58299E+2 


CONTRINTES DANS L ELEMENT 50 


0.6. X i ce PSX EPSY GAMXY S16X SIGY TRUXY Te) 
SI61 $162 TAUMAX 
1 .45000E+01 .SQQ00E+O! .12279E-0e -. SOS07E-03 -.cB349E-035 .S68S1EMWe .60618E-01 -. S401SE+H! “oe 


reo 


2 ,Q0000E+0i .J0CQ0E+O! .116eZE-2 -. 29504E-03 -. 27440E-03 
3 .S45000E+0: .icQQOE+e =. 2S97LE-Oe -. S9440E-03 -. S0558E-04 


CONTAINTES DANS L ELEMENT 33 


abi X i EPSX EPSY GAMXY 


{ .75Q00E+01 .90000E+O1 .11400E-02 -.c8810E-03 -. C8036E-03 
2 .90000E+01 .30000E+01 .107S5E-02 -.27037E-03 -. 281354E-03 
3 .7Q0QHE+O! .12QQOEHE .2c4scE-e -. SSU44E-03 -. SO91SE-04 


CONTAINTES DANS L ELEMENT = Se 


0.6. X Y EDSX GAMXY 


1 ,10500E+02 .9Q0Q0E+O1 . 10555E-0e -. cb621E-03 -. 2B314E-03 


C .12000E+H2 .S0000E+0! .98726E-03 -. 2484S5E-03 -. 281 38E-03 


Meeivacuetie .1cOWEHMe .20BI7E-0d -. a1G/7E-03 -. 57160E-04 


CONTAINTES DANS L ELEMENT 33 


¥.6. X Y EPSX EPSY GAMXY 


ee Souvee comm C000ELOL S97190E-03 -se4497E-0s -. c8S99E-03 


Pea UCVEs en VO00ELOL ,9051GE-03 -.c27S0E-03 -. 28119E-03 


3 .13500EHWe . Lc00GE+02 19163E-02 ~.47498E-03 -. S9035E—-04 


CONTAINTES DANS L ELEMENT 34 


P.6. X ¥ EPSX EPSY GAMXY 


1 .16500E+0¢e .90000E+01 .B8851E-03 -. 2c403E-03 -. 28419E-03 


© .1B000E+02 .90000E+01 .81965E-03 -. 20640E-03 -. 28114E-03 


lu3 9 


Po (abcetue 


mecca avenue 


.197075+02 


~S45847E+02 -. 79468E-01 -. SEISSE+O! 
Paotege ne = aoroeetod si 777 tate 
~7195SE+02 =. 1LS626E+00 -. 60669E+00 
of Jobe tUceeea (Sante . SSSUSE+G2 
S16x Si6yY TAUXY 
S16 SiGe TRUMAX 
S61 77E+0e -. 98918E-01 -. SS667E+01 
»S4504E+G2 -. 42646E+00 =. 1 7465E+0¢ 
sc lBBE+HO? -.64251E-01 -. 53785E+0! 
SCOSHETO? -.41454E+00 . 16476E +02 
~O7S14EHE .75S0CE-01 -. 61098E+00 
B7S19E+02 .697S1E-0t . 356252402 
S16X SIsY TRUXY 
S16 S16¢ TAUMAX 
sSlOS7EtGe -. /4499E-02 -. S397 7EH)! 
SCOOBE+0E -. 435434E+00 =. 16220 +02 
CHOOSE? -. SI747E-Oi -. 557665+01 
ee SIB4E+e -. 451546400 . 15208r+02 
~6CS75E+0e 38. LL664Et00 -. B859CE+K) 
6e486EHe .1091GE+00 =. S11S9E+H2 
SI6X SIbY TAUXY 
S161 S162 TAUMBX 
~COLSIE+02 -.63777E-01 -. 5407BE+0! 
CIOSSENW SE -. 456165400 2 14995e+02 
~CTOBSE+02 -. 48¢24E-01 -. 35745E+01 
»C7496E+O! -. 46159E+00 3. 13979E+02 
wJloccE+HO?Z =. LZOBBE+00 -. 70B66E+00 
JOSUEME wee Se+O0 =. cB704E+02 
S16xX SIby TAUXY 
SI6t SiGe TAUMAX 
» CHB40E+02 -. B1003E-O01 -. 5410sE+01 
ecPOBIE+O2 -. 48963E+00 =. 13779E+02 
CAS7BEOE -.47407E-01 -. S37 36E+01 
CQUSCEHM? -.S0LZSE+O0 =. L2766E +02 


$ .16500E+02 . ic0Q0EME 


cri 


CONTAINTES DANS L ELEMENT 9 


P.G. XK if EPSX 
1 .19500EHWe . 90000E+01 
C .clOd0E+HE .WOG0E+)! 


3”. [SSQGETGr” . teOCUE TOC = wascaceaue 


CONTAINTES DANS L ELEMENT 36 


.6. K , EPSX 


1 .22500E+02 .30000E+01 . 7c1BSE-03 


2 .c4000EH2 .9O000E+0! 
3 .ceSQ0EHWE .1c000EHE .14167E-2 


CONTAINTES DANS L ELEMENT = 97 


P.O. X i EPSX 
{ ,ZOS00E+G2 .90000E+0! .63850E-03 
2 .c70WEME .WO0CE+H! .56961E-02 
go ecOWUETUE 5 LCOQUETCCMeoUUE sc 
CONTAINTES DANS L ELEMENT 8 
P.G. X Y EDSX 


1 .cBS00E+HE .90000E+O! .S5519E-03 


¢ .S0000EHE .FQ000E+0! .48650E-03 


CBSOOEHC .LCQQUEHWE . L083SE-02 


GJ 


sa fSS3E-Ce -—.44d5eBRE-03. -—. SISGE-04 


EPSY GAMXY 


»BOS16E-03 ~.20518E-03 -. 2B4¢4E-05 


. /SheRE-03 =. 1ASS5E-03 veel icE-03 


~ S9IBIE-O3 -. S9604E-04 


ERSY GAMXY 


=, 182S4E-03 -. CB425E-05 


»65294E~03 -. [64/7TE=0g —mGBl icE=03 


-. S4994E-03 -, 596¢BE-04 


GRMXY 


-. {6151E-03 -. cB424E-0S 


=, [4386E—-05 —, cBlicE-03 


-. SOB27E-03 -. 59647E-04 


ERSY GAMXY 


-. 14068E-03 -, cB4¢cE-03 


~, 12308E-03 -. 28L15E-03 


-, cbb63E05 -. 99718E-04 
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516X 
SIs! 


241 40E+02 


sceUr Tete 


»47533EH? 
ATS44Et¢ 


SIGX 
5161 


» CLO4UE+02 


ag eT agg 
COL AGEte 
» 4ZOS4E+02 
»4cS46EH2 


SI6X 
S161 


» LFL40E+0e 
»1I7BEHS 
oL7077E+02 
oli vEte 
oSIIS4ET2 
STO47EW? 


Si&x 
S161 


» 16641E+02 
i soetc 
o L4977E+02 
133i 8E+H02 
» SCUSSETO? 
» S2U49Et+0? 


» LS4STEHHO -, 71407E+00 


ACSH4E+00 =, ch208e +02 
SI6Y TRUXY 
SIGe TAUMAX 


-, B0S78E-Ol -. S4109E+01 
CAHILEtO2 -J5379ZE+0U . 1c 
-. 47286E-01 -. 33735! 
2eObOE+02 -. SO0L9E+00 


ZE +02 


. LISSSET0E 


i S5L4E+00 -, 71 Gaged 


»12435E+00 =. 23710E+02 
SI6Y TRUXY 
S1G¢ TAUMAX 


~. 602¢48E-01 -. S41 10E+0! 
eelAsE+e -. 5BS7BE+OO 
~. 47227E4)! -1337 Cee 
-. B1095E+00 
oLSS27E+00 -. 7ISSAEHOO 
» 12SCOETOO 


»{1574e+02 
. {03762402 


Chee Ge 


SI6Y TRUXY 
$162 TRAUMBX 


-. b02SBE-Oi -. S4109E+01 
-, 6481GE+00 
-, 47590E~O!1 -. SS7S5EtO! 
-, 68797E+00 
»LSSIBE+OG -. 71576E+00 
» 12146E+00 


» 101882 +e 


. 92026e+01 


. 1h7aSenee 


TAUXY 
TAUMAX 


SI6Y 
$162 


-, B0316E-01 -. S4106E+0! 
-. (2996E+00 
~. 48011E-O1 -. S37S5E+01 
-. /BBB7E+00 . BOSS1E+01 
»13443E+00 -, 71 662E+00 
. 11858E+00 


. WeGiSre: 


» f6e1 dE +g 


TEiA 


= 
sv) 


a> 





CONTAINTES DANS L cLEMENT 89659 
9.6. X Y EPOX PSY DAMXY SIGX S16Y TRUXY 
Sibl SiGe TAUMAX 


a 


1 .SISQ0E+02 .SQQ00E+0L .A7197E-03 -. 11989E-03 -. 2B409E-03 .14144E+0E -. 60720E-01 -. S4090E+0: 
o1L4920EHe -. BSE50E+00 . /8780E+01 
pSSOOOE+02 —,S0000E+01 SACSGGE-03 -. L02S5E-05 -.28:16E-03 .1e079E+O02 -—. SLI08E-0i -. 35 739E+O! 
qeesaset0c ~ Jeossct00 8.624082 +01 
»SISGOEHOZ .12000E+G2 .31654E-03 -. 22504E-05 -.60055E-04 .275ce9Et02 .1309SE+00 -. 7c0H5E+00 
pe DACe tO eee gseteO mm ter BetGe 


re 


tJ 


CONTAINTES DANS L CLEMENT = 60 
7.6. X Y EWSX EUSY GAMXY SiGX SI6Y TALXY 
SIG! 5162 TAUMAX 


1 .d4500E+02 .20000E+01 .SB9I6E-03 -.99246£-04 -.2BS4B8E-03 .11G59E+02 -. 6260S5E-01 -, S401 8E+0i 
APS7SEHW Ee -.97B830E+00 .67765&+01 

»sOQ00E+02 .9O0000E+01 .32015E-03 -.82072E-04 -, 2B8130E-03 .95864E+0! -. 65076E-G1 -, 35756E+01 
6{065ce+se -. LIZASE+G! .58900E+0! 

3 .d4500E+H02 .12000E+02 .74941E-03 -. 18376E-03 -.61633E-04 .2cSilE+02 .11486E+00 -. 73960E+00 
peodeoetOr ma so4nce—y) alice te 


ra 


CONTAINTES DANS L ELEMENT 61 
P46. X Yi EDSX E5SY GAMXY Si6X Siby TAUXY 
516i Sie TAUMAX 


1 .S7500E+02 .SO0GQUE+01 .30820E-03 -. 79265E-04 -. cBOB9JE-03S .9228SE+01 -. 70B860E-01 -. 335706E+0i 
A0SEZEHO? -. L1G41E+01 .57428=+01 
€ .ss000E+H0e .SQG00E+01 .23872E-03 -. 64479E-04 -. 28189E-03 .71SISE+O! -. I2LSGE+HWO -. d3827E+0i 
446406401 -. 145455401 2 495925401 
5S .d7S00EHMe .12000E+02 .SB0S7E-03 -, 14366E-G3 -.G8621E-04 1 74e9E+C2 .46786E-01 -, B2S45E+00 
17468E+02 . 7B6S0E-02 =. 87299E+01 


CONTAINTES DANS L ELEMENT 62 
P.G. X if EPSX EPSY GAMXY SI6X SiGY TAUXY 
5161 o1Ge TAUMAX 


1 .40500E+02 .30000E+01 .23462E-03 -. 61830E-04 -.27178E-05 . 701SZE+O1 -. L0L62E+00 -. SEBL4E+0i 
JO2B1FE+OL -. 1S704E+01 .48261E+01 
Z .42000EHe .9Q0Q0E+0! .16265E-03 -.49449E-04 -.28361E-03 .48092E+01 -. cBL17E+00 -, 34033E+01 
»GFO1SGE+O1 -. 19858E+01 . 42498E+01 
3 ,40300EH2 .1Z2000E+02 .40429E-03 -. 10677E-03 -. 95552E-04 .1208SE+02 -. 18252E+00 -. 11466E+01 
AZIIOE+0E -. CBBSIE+OO =. 62591E+01 


CONTRINTES DANS L ELEMENT 63 
?.G. X Y EPSX EYSY GAMXY S1GX SIGY TAUXY 


L141 


- = =< 
r= 
tmp % @ 


t 
util 


yet 
° —_ + 


' 
K 
C1 


~ 
- 


Paw 


1 .435Q0E+02 =. SOOQQE+)i 


ro 


ASOO0E+OE . S0000E+0! 


3 .45000E+H2 . 12000E+H2 


CONTAINTES DANG L ELEMENT 64 


», G. X Y 


1 .46500E+02 


¢ AB8000E+02 


3 .46500E+02 =. LEQQ0E+02 


. SO000E+01 -. 11615E-16 


.JOOOOE+)! -. 73112E-04 


o S49tLE-04 -, 


-comsce-03 -. 


ENSX 


 (3Lick-04 -. 


EQUILIBRIUM RESIDUALS AND REACTIGNS 


NODES X Y 
- OOGOE+00 
« SOQO0E+01 
» HO0G0E+0} 
» FIO00E+01 
» Le000E+02 
- QOUDUE+00 
. SOOGOE+0f 
SOCGE+01 
. SOO00E+01 
» 1L000E+02 
. QOUGDE +00 
. SUQ00E+0 1 
. HO000E+01 
» JOGOOE+01 
. LZEOOUE+02 
. OO000E+00 
. SOGOCE+01 
» S9G00E+01 
« SOQ00E+0 | 
» LLe000E+02 
» OOO00E+00 
» SOQO00E+01 
. FO000E +01 


» HOOQ0E+00 
» OCGOOE+00 
. GOQO0E+00 
. OOOOCE +00 
» QGO00E +00 
» LQQUE+01 
. LSOG0E+0! 
. LS00GE+01 
. LSOQ0E+01 
. 1S000E+01 
. SO000E+01 
. J0000E+01 
. SUOQDE+0 1 
» SOOQGE+0O1 
15 . SOQO0E+01 
16 =. 48000E+01 
17 .45Q00E+01 
18 .45000c+01 
19 . 45000E+01 
eO =. 450Q0E+01 
¢1 .60000E+01 
fe ,S0000E+0] 
23 .B0000E+0! 


»— 


b= ee ge 
Gro == © WO aw Ym OO & GI) Ne 


t— 
-_ 


l 


» KOOOUE +00 
- QOG00E+00 
- OO000E+00 
» KODO0E+00 
« GOOQOE+00 
» KOO0E+00 
~ DOOODE+00 
» (OOOGE+00 
. DOOOOE+00 
» COOODE+00 
. KOOO0E+00 
. WOOQOE+00 
 DOOG0E +00 
 OOOO0E +00 
» DO000E+00 
. DO000E+00 
» COGO0E+00 
- VOOO0E+00 
. KOGGDE +00) 
- DOGQ0E +00 
» O000E +00 
. OO00E+00 


. (BOLBE—Oem=, 49195 -Oae=, cal ick=0e 


eS /E-04 =Fecense—05 


60335E=04 =. lS7eces0s 


cPSY GAMXY 


eLJOIIE-O3 -. c3348E-03 


020479605 —. 1Sca/E—0S es0 tebe rue 


13770E-03 -. 50210E-04 


SIGi 5iG2 TRUMAX 


DSL TEHOL -, 15e9ZEH00 -, 5153S 
96 7699EH01 -. LS51CE+O! 
2861 7E+0} 
wlOB4E+O! -. 21894c+01 
UFHLOE+O! -. SS77IE+O0 -. 18866E+01 
648C9E+01 -. BS964E+00 


} 417055401 
.57312E-01 -. 336886 +01 
. 36489E+0 


056/71 5c+0! 


SI6X SI6Y THUXY 
SI61 SiGe TAUMAX 
LSCOFE+OL .608S4E+01 -. S041 7E+Oi 


=_ = = = 


. /60S3E+01 -.67057E-15 . SSCRienT 
- (S684E+01 -, LS9OBE+O 
»/8778E+01 -. 610685+00 .4244c=+01 


~1S979E+Oi -. SIGIGE+)] -, GOERREard 


147598401 -. S2556E+01 JeSBTenes 


DEGREES OF FREEDOM (* = PRESCRIBED) 


~ QOOOUETO0 *  OOCOCE+00 # 
' , GOOOOE+00 +# QOOCOE+00 + 

- VOOQ0E+00 *  OOQQ0E +00 ¥ 

VOOOUE+00 + OOROOE+O0 + 

 QOGO0E +00 * - QOQO0EHIO * 

. QOVOUE+00 . QOOQ0E+00 

- VOGO0E +00 . QOOOCE HO 

. NOG00E+00 . DOCOOE+00 

. (0000E+00 - VOG00E+00 

» QOG00E+00 « GOOO0E+00 

. QO000E+00 - 90000E +0 

. OOOOUE +00 . OOGU0E+00 

» QOOO0E+00 - DOO00E +00 

- QOOOUE +00 . QODOOE+ON 

» OOOO0E+00 » QOVO0E +00 

- VOOO0E+00 » VO000E+00 

. OO000E +00 . QUQ00E +0 

. DO0C0E+00 » KO000E +00 

- 00000E +00 . QOOO0E HO 

» COOG0E +00 . VOO00E+00 

» QOOOGE+00 » DO000E +00 

» QOO00E +00 . VOUCUE+O0 

. O0O0GE+00 - KO000E +00 
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727A 


» OCKMQ0E+O$ 
» BO000E+01 
» QOOVE+O 
. SQQ00E+0 1 
» 72000c +01 
» /GOO0E+0 1 
» QOOUE+01 
» ZQ000E +0! 
» 90G00E+01 
» FOGQOE+0i 
. 30000E+04 
» A0000E +01 
» LO500E+0¢ 
» L0590E+H02 
. 10500E+02 
» 10500E+02 
. .O500E+02 
» 12O00E+02 
» 1Z000E+02 
» L2Q000EH2 
» 1200GE+02 
» LZOO0E+02 
» 1S500E+02 
»  SOO0EH 2 
.  5G0E+H 2 
. 1LS500E+02 
» 1S500E+02 
» SQ000E+02 
» LQOO0E+O2 
» {S000E+02 
» LQ000E+02 
» IDQNCE+02 
» 16500E+02 
» 1E500E HZ 
» {65900E+02 
» 16500E+02 
. 16500E+02 
. 1B000EH2 
. 1BOGOE+02 
. LBOO0E+H2 
. 1BOOCE+02 
» 1BOQ0E+02 
»{FS00E+W2 
. 19500E+02 


» LFSO0E+02 © 


_  19S00E+02 
. 19500E+02 
 21000E+02 
.21000E02 
 21000EH02 
. 21000E+02 


» FEO00E +01 
» :COO0E+02 
» OOG00E+00 
» SOUOGE+O! 
» 600002401 
. 30000E+)i 
. 120005+02 
» VOGQ0E+00 
» SUQO0E +01 
» F0000E +01 
» SOGOOE+04 
. L2Q00E+02 
. Q00CO=+00 
. SOOO0E+) 1 
» BOO00E+0 1 
» S0O00E +01 
» 12000E+02 
. KOGOCE +00 
» SO0C0E+01 
» 80000E+0i 
» JOOOOE+C1 
» COE? 
. 900005+00 
» S0000E +0 1 
» HOU0UE+01 
» J0000E+0! 
. 12000E+02 
» DOGQOUE+I0 
» SOG0GE+01 
» DOOOOE+0 1 
» Z0000E +01 
» LeQG0ENWe 
 O00G0=+00 
» JOGO0E+0 i 
- 60000E +01 
» SOOQ0E+0! 
. 12OG0E+02 
. COCOCE+00 
» SO000E+01 
» HO000E +01 
» 50060E+01 
» 12G00E+02 
. QO000E+00 
» SOQ00E +01 
 bOCQ0E+01 
» IQO00E+01 
» 12000=+02 
. OO000E+00 
» SOGCQUE+0 1 
» F0000E+0! 
» S0000E+01 


 OGOCCE+9 
» KO000E +00 
. OOGO0E+00 
. QUOG0E +00 
» COQOOE+00 
« QO0O0E+00 
. QOO00E+00 
» KOU00E+00 
 QO0G0E +06 
» OOO0GE +0 
» OG0Q0E +00 
» NOGO0E+00 
. DO000E+00 
» KOGO0E+00 
~ OOCOOE+00 
» K0000E +00 
» XOO00E+00 
» OOG00E+00) 
» WOOQOE +00 
» COOODE+00 
. DOO00E+00 
» QOOD0E+00 
. QOG00E +00 
» QOOQ0E+00 
» QOQ00E +00 
» COOOOE +00 
. OO00GE+00 
» COOO0E +00 
. KOO00E +00 
. VQ000E+00 
- QOO00E +00 
» X0G00E+00 
» QO000E+00 
» COOO0E+00 
» QO000E +00 
» HO0O0E+00 
- QOOOUEHI0 
» DO000E+00 
» OOCO0E+00 
. OUO0E+00 
. X0000E+00 
. OOG00E+00 
. XOO00E+00 
» OOO0CE +00 
- QOOQCE +X) 
» K0000E+00 
» NOUQ0E+00 
- QOG00E+00 
. QO000E +00 
 COCQ0E+00 


» QOOQGE+00 
. QOGO0E+00 
» VOOO0E+00 
» OOOOOE+00 
» 9G000E+00 
. 00000E +00 
» VOGQ0E +00 
» QOOGOE+00 
 VOCOOE +00 
. OGOCGE+00 
» QO00GE+00 
. 00000E+00 
. Q0000E+00 
. QO000E+00 
. QOOGDE+00 
» QOVO0E+00 
» QGOQ00E +00 
« QOO00E+00 
. OOO00E +00 
» OOO00E +00 
. DO000E+00 
. NOO00E+00 
. VOG0GE +00 
» VCO00E+00 
» QO000E+00 
» DOO00E +00 
. QO000E +00 
. QOO00E+00 
- X0000E+00 
» KO0O0E+00 
« QOOOCE +00 
» VOQQ0E+00 
. QOO00E+00 
» KOO0UE+00 
. OO00E+00 
» COQO0E +00 
. QOOO0E+00 
. QOOO0E+00 
» 9G000E+00 
. QOOODE+0 
» QO000E+00 
. COUO0E+00 
. XO000E+00 
» COCODE+00 
» DOO00E+00 
. OOO00E +00 
. QOO00E +00 
. 00000E +00 
» QOOOCE +00 
. OO000E +00 
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e 
esas + = 


. OOGQE+00 
. OOUOVE +00 
» QOQO0E +00 
» VOOROE+OO 
. DOCO0E+00 
» QOGOIE+00 
 OOOOOEHIO 
. QOOOUE+00 
. QOO00E+00 
» QUOUGE+O0 
. QUOQ0E +00 
. QOO0UE+00 
» NO000E+00 
» QUCDOE+00 
 OOOOCEH0 
. UCO00E+00 
 OGOD0E +00) 
. OOOOOE+00 
. OOCQOE HO 
 COOKOE+00 
 OOO00E+00 
. QOQ0CE WO 
 OOO00E+00 
 OOCOOE +00 
. OOOO0E +00 
. COOCOE+)0 
» DOOGQE+00 
 COOO0E +00 
» OOUR0E+00 
 OO000E+00 
. VOOO0E+00 
. HOOQCE HO 
. OO000E+00 
. QOOOOE HO 
» OOOOUE +00 
. HOOODE WO 
. 90000E+00 
. VOQQOE HO 
. OOOG0E+00 
» WOO00E +0 
. QOO00E+00 
 OOCO0E +00 
 COOO0E+00 
 OOCO0E+00 
. QOO00E +00 
» KO000E+)0 
. 00000E+00 
» MOO0E+HI0 


ws 
76 


SSSECURRFRBRZS RRR 


» CL000E+02 
» CLOQUE +2 
» CCQOUE +02 
» CLOQCE He 
» CCOOUE+O2 
»22000E+H02 
» LA000E+02 
» C4000E We 
» ZS000E+02 
» Z4000E +02 
»C4000E +02 
» Conde +02 
» COO0UE+02 
» CODIDEHWE 
» COWO0E +E 
COMME + 2 
»CUOOE+0E 
»2/000E+02 
»2/000E+02 
»2 7 000E+02 
»c1000E+02 
»28500E +02 
» C8S00E +02 
» CASQ0E+02 
» CAS00E+02 
» CAS00E+02 
» SOOQGE+02 
» SOOOUE HWE 
» SOU00E+02 
» SOOODE He 
» SUG00E+02 
» SLO00E+02 
» SLOU0E He 
e SIGOUE+Z 
» SLS00E+02 
» SLSO0E +02 
» SSOOOE+M 2 
2 BSCOCE+02 
» S800Q0E+02 
» SSOOOE +2 
» SS000E +02 
» dS4500E Me 
» S4500E +02 
» S4500E +02 
» S4500E+02 
» S4500E+02 
» S6Q00E +02 
» S6000E +02 
» S6000E+02 
. S6000E+02 
» S6000E +02 


. 120002402 
» COOODE+00 
. scdade+)! 
~60000E+01 
» FOHGHOVE TOI 
» i LOQGE Hig 
» HOOODE+90 
. SOOGOE +01 
» BO000E+0; 
» JOODOE+0! 
» 1CQQ0E+HME 
» K0000E+00 
» SOCQGE+01 
» BOCOCE+0i 
» FOQKOE+01 
» L2UCOE+02 
» DOOOQE+60 
» SOOOUE+0{ 
» HU000E+0! 
» IOOGOE+0 1 
»12000E+02 
» QOOG0E +00 
» SOOO0E+) 1 
. F0000E +0 1 
» S0000E+01 
» L2O0C0E+02 
» OOOO0E+00 
» SOQQ0E +03 
» FO000E +01 
» F00Q0E+0 ; 
» Lecdde+0¢2 
» KOOCOE+00 
» SOOUCE+04 
» FOGQ0E+0 1 
» KOQQOE+0! 
» LLOOCE+HME 
» COGQGE+00 
» SOOO0E+0! 
» BUGGOE+0! 
» SOCOOE +0! 
» LEOQ0E+02 
« KGO00E+00 
» SOQOOE+0 ! 
» BO000E+01 
» F0000E+01 
» 12Q00EH 2 
» UOGOOE+09 
» SOOCOE+OI 
» S00G0E+0 1 
. JOCOOE+0! 
» 12L000E+0¢2 


» OGGICE +20 
» OC00GE +00 
/ O0000= 400) 
» UOGQQE+00 
» OCOC0E+00 
» OOGQGE +0) 
» QG000=+00 
» COQOTE+K) 
» QOQ00E +0) 
» COOQUE+00 
. W000E+00 
. 9G900E+00 
» QO0G0E+00 
» OOOO0E +00 
» OCO0GE +00 
. OOO00E +00 
» OOONGE+G0 
» QOON0E +00 
. COQO0E+00 
» Q00CGE+00 
» 9O00GE+00 
» DO900E+H00 
. KO00UE +00 
. 9A000E+00 
» COGU0=+0G 
» VO000E+00 
» OQG00E +00 
. LO0Q0E+00 
» VOOOUE+00 
» QOQ00E+00 
» CU900E +00 
» CGOO0E +00) 
» COOQUE+O0 
» COGQ0E +00 
» CUOOUE+00 
» OCOODE +09 
» COGU0E+00 
» OOOQNE +00 
» KOOCGE+00 
» OOO0GE+00 
» OOCQOE+0G 
» OGOO0E +30 
» GOOQUE+O0 
» Q0000E+05 
» COGQOE+00 
» GOOG0E +00 
» OOGQ0E +00 
. NOCQOE +00 
» OOO00E+0G 
. QOO00E+00 
~ GO000E+G0 


es - © = «© we -<« 


.oogaggena 
HOGS +9 
» OOSQOE THO 
 QOCOS +H) 
» GOQ0GE+50 
» OOOGIS +400 
 COG00E +00 
» OGQIGE +00 
» AIGOCE +00 
 NO00GE +00 
. QOO90E+00 
» GOOOTE+00 
 QOU0GS +0 
~ QO0G0E +09 
J OCGIOE+00 
» GOQQCE +00 
» OCCOOE +00) 
. GUOGIE +00 
» JOCGOE+0G 
» JOCOGE +09 
» OODQ0E +90 
» OOOGHE+99 
 OOGG0E +00 
» GO0OCE +00) 
» UGC +04 
» OCG0GE +00 


OO00GE+00 - 


» NUCdGE+O9 
 OO0RGE +00 
» VOGOIE+00 
» OOICHEHIO 
» OOOODE +90 
» KOE +00 


 OOGODE+G0 — 


» OONOOE+O0 
» GOCHIE+00 
 VOUCUE+O0 
» GOOQGE +010 
» CODR0E+O0 
» QOGIGE +09 
2 O00005+09 
» VODICE+00 
» 000092+00 
. OOO0dE+00 
. OUG00E+00 
» COGGOE+00 
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> ee «= ® 


eo * es oe -~@ 


 OOCOIE+9¢ 
 O00H9=+00 
 OUGQGE +85 
 00G00=-00 
» OOOS0E +00 
»O90092 +05 
» VUQQOE tC) 
» O0O90E +0G 
» COOGEE +00) 
, GOCG0=+00 
» OO0IGE OC. 
COOOL +05 
» CONICE HC. 
peg ator 
» OOQO0E+G0 
»0O000= +00 
» AGOQGE SOD 
 COGOCE +0 
»GOGGGE +92 
» QOCIGE+O0 
»OOODIE +07 
» OOOR0E +0 
BOONE L9G 
, GOUEO= +00 
2 VIOOOEHIA 
WO0ggo Han 
»VOOKC= +00 
COOGEE SOG 
» HOODIE +00) 
NODE +00 
» GOORIE +06 
» SOOOUE+OC 
200002498 
MOQUJE SIC 
, JOQIGE+20 
 UC090E 40 
 GYIQOQE FOU 
» WQQG0E+00 
» WIO00E +9 
» SOOUIE +00 
 VOQODE HIG 
» OO0005 +00 
» SOOG0E S00) 
. GOQ00E+HI0 
. VOO00E +00 


—_— on sd os -_—* os aba 
t) GJ oy GI fa fo nme fa 
Whom OC oO WO ym 


}-= 
Cal 
> 


io 
136 
137 
138 
139 
140 
141 
142 
143 
144 
149 
146 
147 
148 
149 
190 
en 
LS¢ 
153 
134 
159 
136 
iy 
10d 
153 
160 
16! 
ibe 
163 
i64 
169 


Ss uO0Et0? 
» STOUOE+0E 
» 37 S00E+02 
37/5008 +02 
» dQUDE +2 
» dF000E +02 
» SSO00E+02 
. SSOQUE+G2 
» S9000E +02 
» SSOOGE+02 
» 40500E +02 
»40500E +02 
»40500EHe 
» 40500E +02 
»40500E+02 
»42000E+02 
420005 +2 
» 42000E+02 
»42000E +02 
» 42000E+02 
» 43900E+02 
» 43900E+02 
» 4 3500E+02 
» 4SSOE+02 
»4S500E+0¢2 
» 45000E+02 
. 45000c+02 
» 45000E+02 
» 45000E+02 
» 45000E +02 
» 46500E+02 
» 46500E+0¢2 
» 46900E+02 
 46500E+02 
. 46500E +02 
» 48000E +02 
» 48000E He 
» 48000E+)2 
» 48Q00E +02 
» 48000E+02 


END OF PROBLEM, 


— 2 © 2 © om 


 COCdIE+G I 
» S0000E+01 
» LCOWWEHMZ 
. WOOGUE +00 
. SOGQ0E +01 
.O0000E+0! 
. J0000E+0! 
» Leddoe+02 
» HOCQ0E +0 
» SU000E+0! 
» FOOO0E+) 1 
. 30000E +01 
» LeOndE+02 
» GO000E +00 
» SOQ00E+0 | 
» HOQOOE +O { 
. SO000E+) i 
. L2000=+02 
. OCOQ0E+H0 
« SQ000E+01 
» BOGQUE+0! 
» SOOGVE+CL 
. LZOQUEHM Ee 
/ QO000E +00 
» SOCOCE+0 1 
» BO000E+C1 
» KHOQOE+0 1 
. L2C00E +02 
. OOCCOE +00 
» 0000E +01 
» HOCOdE+01 
. SO000E+01 
» {CQQ0E He 
» KOG00=+00 
. SOGOUE +0} 
. H0000E+01 
» S0000E+)1 
. 12000E+62 


fQO1 UFTLi 


GOO. +E 
» UGCQQE +00 
 OO0CIE+09 
» QOGIUE +09 
» OCQOGE+GO 
. VOQGCE+O0 
» GOQ00E+00 
 VOOGOE+G4 
. QOOOGE +00 
» SOQQUE +00 
. GOCOGE +06 
» OGCOGE+00 
» O0000E +00 
» DUCHOE +00 
. OOO00E+00 
« COGGOE+00 
. OOODDE+00 
» COOOGE+0S 
 OCOGRE+IG 
» COOQVE+CO 
» COCO0E +00 
» GOQQOE +00) 
» QOUGGE+00 
» COOOGE+00 
» QOOQGE +00 
» QOOORE+00 
» OGOODE+00 
» QOQOQE+00 
 OOCQGE+00 
» COCOUE+00 
» OO000E+00 
~ GQO000E+C0 
» OCCQOE+00 
» COUO0E +60 
» QOQUGE+GQ 
» GOO00E +96 
» OOOO0E+0G 
« VOCUGE+00 


2D REPL WORDS OVER 


OOGI0E+CE 


2 vcotive +6 


 DOG0IE +90 


of 2 + + -= o «# 


Coggoe +00 
 COCKIE+I0 
» 2000 = +00 
 COOGIE+00 
. OOGIOE+IG 
O00 +00 
» OOGOCE +00 
» COOCGE +00 
» VOQGIE+00 
» GOQ00E+00 
» O0GH0E +04 
» Q00852 +00 
» HO00GE+00 
» VOUICE+G0 
. OOGQ0E+00 
» OO009E+90 
»GO0I0= +00 
. 90000E+00 
. 09000=+09 
. 900002 +06 
» OG000E +00 
00002400 
» GOCO0E+00 
» VOCEGE+00 
. O00C0E+00 


eee es + om 2 « 


» COQGDE+IG 
» 0C000E+00 
. COCOIE+00 
. QOO0GE+HA 
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20000 
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» COONS +06 
OOOOE +3 
» CaQ00E +80 
SOG E +34 
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ROUOGE +90 
. COdQ0E SIG 
» CHNGEHMG 
, 2OG00= +30 
 COHOSOE+IC 
» OQ0GE HOG: 
2000gT4a0 
» OOOGETG 
» OO00E 80 
»20COOE+06 


ere as -~ . = 
» COOE 00 


me te ote ote pt - + 
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» 406002402 


+ 8 = = © 
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MEF PROGRAM LISTINGS 


The program listings for MEF are provided below. Each separate disk file, or comoiland, is 


marked by the Microsoft FORTRAN 77 metacommands which preceed it. 








$0066 

$NOFLOATCALLS 

C 
(aasenssasaaeaasssaS5SsSs5552==—5555 565-5 —— = sae eS eee 
& 

ie F.E.M. - 3- PROGRAM, °BOOK’ VERSION (QCTOBER 1979 

C  (G.TOUZOT , &.DHATT, COMPIEGNE UNIVERSITY OF TECHNOLOSY, FRANCE) 

C 

C MODIFIED FOR IMPLMENTATION ON THE IBM PC AND THE COMUMBIA 

C MPC USING MICROSOFT FORTRAN VER 3.2 

G 

iG 

= ( REHE £. RUESCH, LCDR, USN, U.S. NAVAL POSTERADUATE SCHOOL ) 

e 
CessassssSsSeSSssess SSS 2S=5 SSS a a ee ee 
ie 

L MAIN PROGRAM 

C 

Cosmemasssaas SassssessssessssssssS= === = <5 -- === ee 


IMPLICIT REAL*B(A-H, 0-2) 
CHARACTER®4 BLOC, BLOCS(21) 

CHARACTER#14 INFILE, OUTFILE 

COMMON/COOR/NDIM, NNT, NDLN, NDLT, FAC (3) 
COMMON/COND/NCLT, NCLZ, NCLNZ 

COMMON /2RND/NPRN 

COMMCN/PREL/NGPE, NPRE 
COMMON/ELEM/NELT, NNEL, NTPE, NGRE, ME, NIDENT, NPG 
COMMON/ASSE/NSYM, NKG, NKE, NDLE 
COMMON/RESO/NED, NRES, MRES 

COMMON/RGEDT/IEL, ITPE, ITPE1, IGRE, IDLE, ICE, IPRNE, IPREE, INEL, IDES, 
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1 IPG, ICGD, IDLEO, INELG, IPSC 
COMMON/LIND/NLBL, NBL, ¥453, *AG2 
COMMON/NLIN/EPSDL, XNORN, ONES, X58, FFE, HCAS, VRAS, I255, VITER, 
1 ITER, IMETH 
COMMON/VALP/NITER!, NMDIAG, 595L8, SHI=7, 493, VEam, “SLI90, WAL? 
COMMON/ES/™, MR, 4D, MLUN (10) 
COMMON/ALLGC/AVA, IVA, IVAMAX, NREEL, NTEL 
CORMON/LOC/LCORG, LDLNC, LXED, LDEYP, LORNG, LOREG, LD, LICE, LO28E, LNG, 
{ LPRNE, LOREE, LDLE, LXE, LF, 46S, LNSD, L462, LFS, LRES, LG, U5, 
2 LDLEO, LDLGO, LFGO 
COMMON/TRVL/VDE (9) , RDUMMY (S12) , NULL 
COMMON/DUMPLA/Y!3, Y2t, X13, X21, SU4, SUS, Sus, D4, DS, Dé, 
1CL4, CLS, CLS, SL4, SL5, SL5, B43, 9) 
COMMON VA(Z0009) 
DATA BLOCS/? IMAG’, 'COMT?, 'COOR™, *DLON’, COND! SAND) OREL) 
‘ YELEM? 'SOLC’, SOLR’,LINM’, 'LIND! PALINY ) TERON 
$ ORME’ "sent Masten, ae. ri. gaa? ieee lg GOP! / 
DATA NB/21/ 
Cc 
CHH++t+tit++ WRITE HEADING 70 CONSOLE AND REQUEST INPUT QND CUTOUT 
FILE NAMES. FILE NAMES MUST CONFORM TO MS 09S 2.4 
CONVENTIONS. NO PATHNAMES ALLOWED, A NGME CAN, THERESTE, 
CONSIST OF (AT MOST) 14 CHARACTERS: DEV:F 2 ENAME, EX” 


FOR EXAMPLE:  A:INPUT. DAT 


mogd3oamooao om 


WRITE (#, 2000) 

WRITE(#,)(A\))) — COMMAND@FILE NAMED ? 
READ(#,?(A14)!) INFILE 

WRITE(E,! (/)?) 

WRITE(S,"(A\)?) 9? QUTPUT FILE NAME? | 
READ(#,' (AL4)") QUTFILE 

WRITE(#, 1 (/)") 

WRITE(#,'(A)) ) PROCESSING BEGINS...! 
OPEN(MP, SILESCUTFILE, STATUS=' NEW? } 

OPEN (MR, FILESINFILE, STATUS=! CLD! 


(lm me ee ee a rs ee er we eee ee ee ee et ec 


Ceeeeeee LENGTH OF BLANK COMMON IN REAL WORDS (TABLE Va) 





NVA=c0000 
eee = EAU LNG 

WRITE (MP, 2000) 
COOO «FORMAT (1H1, $OX,'F.E.4.3.'/25%,' G.TOUZOT, G. DHATT? 

1 picar," MODIFIED BY’ 

e 125K, REHE & RUESCH! /25X, [9¢C'=!)/7) 
C READ BLOCK TITLE 


10 READ(MR, 1000) BLCC, M, MLUN 
WRITE(#,1(A18,A4)') ? PROCESSING BLOCK ', BLOC 
1000 FORMAT (AS, 16, 1015) 
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(--—---- SEARCH FOR THE BLOCK TO BE EXECUTED 
DO 20 I=t,NB 
IF (BLOC. EQ. BLOCS(1)) 80 TO 30 
20 CONTINUE 
WRITE(MD, 2010) 
2010 FORMAT(? #4 ERROR, MISSING BLOCK CALLING CARD’, /) 





60 TO 10 
30 GO TD (110, 120, 130, 140, 150, 160, 170, 

l 180, 190, 200, 210, 220, 230, 240, 

2 250, 260,270, 280, 230, 300, 999), 1 
C—----- BLOCK TO PRINT IMAGES GF DATA CARDS 
110 CALL BLINAG 

60 TO 10 
(-—----- BLOCK TO READ AND PRINT COMMENTS 
120 CALL BLCOMT 
60 70 10 
(-——-—- BLOCK TQ READ NODAL POINTS COORDINATES 
130 CALL BLCOOR 
60 TO 10 
Cc BLOCK TO READ DEGREES OF FREEDOM PER NODE 
140 CALL BLDLPN 
G0 10 10 
(-----— BLOCK TO READ BOUNDARY CONDITIONS 
{50 CALL BLCOND 
60 70 10 
C-—-—-- BLOCK TO READ NODAL PROPERTIES 
160 CALL BLPRND 
s0 7010 - 
(---—--- BLOCK TO READ ELEMENT PROPERTIES 
170 CALL BLPREL 
| 60 TO 10 
C-———- BLOCK TO READ ELEMENT DATA 
190 CALL BLELEM 
60 TO 10 
(-—---- BLOCK TQ READ CONCENTRATED LOADS 
190 CALL BLSOLC 
60 To 10 
C-—--—- BLOCK TU READ DISTRIBUTED LOADS 
200 CALL BLSOLR 
60 To 10 
C---—--- BLOCK FOR IN CORE ASSEMBLING AND LINEAR SOLUTION 
210 CALL BLLINM 
60 TO 10 
C-—---- BLOCK FOR ON DISK ASSEMBLING AND LINEAR SOLUTION 
220 CALL BLLIND 
60 TO 10 
C-——— LOCK FOR NON LINEAR PROBLEM SOLUTIGN 
230 CALL BLNLIN 
60 TO 10 
Cc BLOCK FOR UNSTEADY PROBLEM 





240 CALL BLTEMP 
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4 IMAG! 


CaM 


*COOR' 


*DLPN' 


* COND’ 


* PRND! 


*PREL? 


4 Fi EM! 


*SOLC’ 


VSGER? 


*LINM!’ 


*LIND’ 


™NLIN’ 


TEMP? 


60 TG 10 
C------- BLOCK 70 COMPUTE EIGENVALUES (SUBSPACE) "VALP? 
90 CALL BLVALP 
GU TU {0 
te UNDEFINED BLOCS 
50 8=CONTINUE 
270 CONTINUE 
2B0 = CONTINUE 
290 3 CONTINUE 
300 CONTINUE 
60 TG 10 
U-—--—--_ END OF PROBLEM *STOP? 
999 «= WRITE(MP, 2020) IVAMAX, NVA 
e020 FORMAT(//? END OF PROBLEM, ', 110,’ UTILIZED REAL WORDS OVER’, 110) 
STOP 
END 
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$LARSE 
$NOFGATCALLS 


BLOCK DATA 
[ SSS SSSSee aaa a oe as Se a ee 
C INITIALIZE LABELLED COMMONS 
rp 


IMPLICIT REAL#B(A-H, 0-2) 
COMMON/COOR/NDIM, NNT, NDLN, NDLT, FAC (3) 

COMMON/COND/NCLT, NCLZ, NCLNZ 

COMMON/PRND/NPRN 

COMMON/PREL/NGPE, NPRE 

COMMON /ELEM/NELT, NNEL, NTPE, NGRE, ME, NIDENT, NPG 
COMMCN/ASSE/NSYM, NKG, NKE, NDLE 

COMMON/RESO/NEQ, NRES, MRES 

COMMON/RGDT/IEL, IT2E, ITPE1, IGRE, IDLE, ICE, IPRNE, IPREE, INEL, IDEG, 
{ IPG, ICOD, IDLEO, INELO, IPGO 

COMMON/!IND/NUBL, NBLM, MKG1, MKG2 
COMMCN/NLIN/EPSDL, XNGRM, OMEGA, XPAS, DPAS, DPASO, NPAS, IPAS, NITER, 
1 ITER, IMETH 

COMMON/VALP/NI TER! , NMDIAG, ZPSLB, SHIFT, NSS, NSWM, TOLJAC, NVALP 
COMMON/ES/M, MR, MP, MLUN(10) 
COMMCN/ALLOC/NVA, IVA, IVAMAX, NREEL, NTBL 
COMMON/LOC/LCORS, LDLNC, LNE®, LDIMP, LPRNG, LPREG, LLD, LLOCE, LCORE, LNE, 
{ LPRNE, LPREE, LDLE, LXE, LFE, LXGS, LKGD, LKGI, L7G, LRES, LDLG, LME, 
2 LDLEO,LDLGO, LFGO 

DIMENSION LCORS(1), DUNC (1) ,LNEQ (1), LDIMP(1),LPRNG(1),LPREG(1), 
* LLD(1),LLOCE(1),LCORE(1),LNE (1), LPRNE(1),LPREE(1),LDLE(1), 

# LKE(L),LFE(L), LAGS(1) LKGD(1) LAGI (1) ,LFG(1),LRES(1),LDLG(1), 
* LME(1),LDLEO(1) ,LDLGO(1) ,LFGO(1) 

DIMENSION LXX (25) 

EQUIVALENCE (LXX(1),LCORG) 

C—---— COMMON /C00R/ 
DATA NNT/20/,NDLN/2/,NDIM/2/, FAC(4), FAC (2) , FAC (3) /3#1.DO/ 





C COMMON /PRND/ 
DATA NPRN/O/ 

C-----— COMMON /PREL/ 
DATA NGPE/G/, NPRE/O/ 

[------- COMMON /ELEM/ 


DATA NELT/20/, NNEL/8/,NTPE/1/, NGRE/1/, ME/1/, NIDENT/G/ 
C--—---— COMMON/ASSE/ 
DATA NSYM/G/ 


C--—--— COMMON /RESO/ 
DATA NRES/O/,MRES/2/ 
C--—-— COMMON /RGDT/ 
DATA ITPEL/O/ 
C------- COMMON /LIND/ 
DATA ¥KG1/4/,MK62/7/ 
C------- COMMON /NLIN/ 
DATA EPSDL/1.D-2/, OMEGA/1.D0/, DPAS/. 2D0/, NPAS/1/,NITER/S/, IMETH/1/ 
E COMMON /VALP/ 
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DATA NITERS/10/, NMDIAG/G/, 22S. 2/1.9-3/, 5a2=7/9. 00/, \SS/5/, 
1 NSWM/12/, TOLJAC/3.D-12/, WALE/3/ 
C-—---- COMMON /ES/ 
DATA ™R/5/,MP/6/ 
(-——— COMMON /ALLOC/ 
DATA IVA/1/, IVAMAX/1/, NTEL/2S/ 


Dreessss USPINE HERE THE NUMGER OF INT=GERS CONTAINED 2¥ a REAL 
C FOR THE COMPUTER EXPLOVED 

C EXAMPLES: IBM SIMPLE PRECISION XREZLLEGL: 

C IBM SOQUBLE PRELISIUN NREEL.EG. C2 

E CDC Ndeeee EU. | 


DATA NREEL/2/ 


C-—-—— COMMON /LOC/ 
DATA LXX (1), L XX (2), LXX (3) LXK C4) LXX (5) LXK(S)  LXK(7), LEX ZES 
fs EXX (9), LXX (10) LX CLL), LXK (12), LHX C13), LXX (14), LXV (2S, 
2 LXN( 16), LXX(£7), LXX (18), LX (19) LX (20), LXX (21), LXK 122), 
3 LXX (23), LN (24), LXX (25) (2541 / 
END 


dea 


$LARGE 
$NOFLOATCALLS 
$DEBUS 
SUBROUTINE ERREUR (TERR, Ii, Te, INIV) 


C PRINT ERRGR MESSAGES FOR BLOCKS READING DST 


em me mm mm mmm me ee i es ee es ee ee ee ee ee ee es ee eS 
em ee ee ee ee es ee ce ee cc ee ee ee ee i 


COMMON/ES/M, MR, MP, MDUMMY £0} 
(2s -- - + + ee ee ee eee: 
C-——-- BLOCK 'C003 

IF (IERR. GT. 19) GO TO 200 

IE=TERR-10 

GO 70 (210, 120, 130, 140, $50, 160, 160, 130), IE 
110 WRITE(MP, 2110) 71, 12 
2110 FORMAT(? ### ERROR, FIRST NODE NUMBEQL’, 14,9) IS GREATER THAN NNT= 

19, 14) 

60 TO 900 
120 WRITE(MP, 2120) 11, 12 
2120 FORMAT(? ## ERROR, SECOND NODE NUMBER), 74,!) I$ GREATER THAN NNT= 

1’, 14) 

60 TO 900 
130 WRITE(MP, 2130)11, 12 
2130 FORMAT(? #* ERROR, NODAL NUMBER OF D.O.F. (7, 14,') I$ GREATER THAN 

tNDLN=", 14) 

60.70 900 
160 WRITE (MP, 2140) 

2140 FORMAT(? #% ERROR, FIRST AND SECOND NODS NUMBERS ARE INCOMOATIBLE 
{WITH THE GENERATICN PARAMETER? ) 

60 TO 900 
150 WRITE (m9, 2150) 11 
2150 FORMAT(? <4 E2R0R, NODE ', 14,’ 1S DEFINED MORE THAN ONCE?) 

60 TO 900 
160 WRITE(MP, 2160) 1: 

2160 FORMAT(? #* ERROR, NODE ’,14,’ IS NOT DEFINED?) 

60 To 900 
180 WRITE (MP, 2180) 12, 11 
2180 FORMAT(? #* ERROR, GENERATED NGDES NUMBER(?, 14,9) IS LESS THAN NNT 

t=", 14) 

60 TO 900 
C-—-—- BLOCK ’DLPN? 

200  IF(IERR.GT.29) GO TO 300 

IE=TERR-20 

G0 TO (210,220), I£ 
210 WRITE(MP, 22:0)71, 12 
2210 FORMAT(? #4 ERROR, NUMBER OF D.O.F. (7,12,!) IS GREATER THAN NDLN= 

1’, 12) 

60 70 300 
220 © WRITE(MP, 2220) 11, 12 
22a) FORMAT(? 44 ERROR, NODE NUMBER(, 14,1) IS GREATER THAN 

INNT=! , 14) 


Lb 


60 TO 900 


C-—-—) BUER COND’ 
300 IF(IERR.S7.39)60 72 400 
IE=IERR-30 
60 TO (900, 320, 900) , IE 
320 60 T0 220 
Be--———— BLOCK REL 
400 IF (TER2.GT.43) 60 TO 500 
IESTERR-40 


GO 70 (410,900), IE 
410 WRITE(MP, 2410) 21, 12 
2410 FORMAT(? #* ERROR, GROUP NUYBER (1, 73,7) IS GREATER THAN NGPE=), 73 
t) 
BO TO 900 
C--—--- BLOCK 'ELEM 
500 IF(IERR.GT.53) SO 70 900 
IE=TERR-50 
50 TO (5!0, 900,530, 540, 550, 560, 570), JE 
510 WRITE(MP, 2510) 11, 22 
2510 FORMAT(? #* ERROR, NUMBER OF NODES (?,13,°) IS GREATER THAN NNEL= 
t, 13) 
60 70 900 
530 WRITE(MP, 2530) 11, 12 
2530 FORMAT(? #* ERROR, PROPERTY NUMBER (°,13,9) IS GREATER THON xGSE=! 
113) 
6D 70 900 
540 WRITE (MP, 2540) 11, 12 
2540 FORMAT(? #4 ERROR, GROUP NUMBER (?,13,9) IS GREATER THAN NGRES’, 13 
t) 
6D TO 900 
S50 WRITE(MP, 2550) 11, 12 
2550 FORMAT(? ## ERROR, ELEMENT NUMBER (7,14,') IS GREATER THAN NELT=’, 
114) 
60 TO 900 
560 60 70 220 
570 WRITE(MP, 2570) 11, 12 
2570 FORMAT(? #* ERROR, NUMBER OF ELEMENTS (?,14,7) 75 GREATER THAN NEL 


{T=", 14) 

C——----- =D 

900  I1=I2 
IF(INIV.SE.2) STOP 
RETURN 
END 


iS 


SUBROUTING ESPACE (ILONG, IREcL, TEL, IDES) 


C TO ALLOCATE A REAL CR INTEGER TOBLE IN ARRAY VA 

C “INPUT 

C TCONG LENGTH GF THE TABLE TO Bf ALLOCATED 

C (IN REPL GR INTSSER WORDS) 

C LREEL TABeE TYPE : 

C EQ, 0 INTEGER 

C £0. t REAL 

C TBL NAME OF THE TABLE (A4) 

C QUT PUT 

C IDEB TABLE TO Be ALLOCATED STARTS iN VA(TDSs) 


IMPLICIT REAL#8(A-H, 0-2) 
CHARACTER#4 TBL 
COMMON/ES/™, 4R, M2, MDUMMY (10) 
COMMON/ALLOC/NVA, IVA, IVAMAX, NREEL, IDUMNY 
COMMON VA(L) 

DIMENSION KA(1) 

EQUIVALENCE (VA(1), KACL)) 

DATA 2E8G/0. Dt/ 


SE ae a ea SR Se ee ee ee ae a SS a SO a a a ee ee 











es 
C--—-—-—— CALCULATE THE TABLE LENGTH IN REAL woRDS 

TLGR=ILONG 

TF (YREEL. EG. 0) ILGR=(ILONG+NREEL—7) /NREEL 

IVAL=IVAtILGR 
C-——-—_ CHECK I ENOUGH SPACE IS AVAILAS_= 

IF(IVAL.LE.NVA) SO TO 20 
Cece eeee AUTOMATIC EXTENSIGN OF THE BLANK COMMON I° CORRS5SCNDING 
C SYSTEM COMMAND EXIST ON THE COMPUTER USED 
C CALL EXTEND (IVA1, JERR) 
c IF (TERR.EQ.1) 60 TO i0 
n 
C 








NVA=IVAL 
60 TO 2O 

C------- ALLOCATION ERROR (NOT ENCUGH SPACE) 

10 WRITE(MP, 200) TBL, IVA1, NVA 

C000 FORMAT(’ ###*% GLLCCATION ERROR, TABLE 9,A4/? REQUIRED SPACE;!, 19," 
1 REAL WORDS, AVAILABLE SPACE:', 19,’ REAL WORDS’; 


STOP 
C------- ALLOCATE TABLE 
20 = IDEB=IVA+! 
TVA=IVAL 


IF (IVA.GT. IVAMAX) IVAMAX=IVA 

IF(M.6T.0) WRITE(MP, 2010) TBL, IDEH, :VA: 
2010 FORMAT(60X, TABLE ’,A4,! SOES FROM VA(’,!7,7) 72 VAI’, 17,')%) 
c INITIALIZE THE ALLOCATED TABLE 70 780 

I1=IDEB 

IF (TREEL.E0.0) I1=(I1-1) #NREZL+! 

I2=11+ILONG-1 

IF (IREEL.E0.0) GD TO 40 





4 





DO 30 I=I1,12 
30 VALI) =Z20 


RETURN 
40 00 30 I=I1, le 
90 = KA(T) =0 
RETURN 
END 


SUBRCUTINE VIDE CIDEB, IREEL, TEL) 


ee SS == rr a a a a a a rl a i ra 
C TQ DELETE A TABLE FROM VA, FOLLGWED BY COMPACTING 

C INPUT 

C IDEB FIRST POSi::GN GF TAgLE TC B= Deleted 

C TREEL TYPE Or TRELE (SEE ESPACE) 

C TBL NAME OF THE TABLE (AS) 

SS See eee ee See ne eee ee a eee ae ee noe ae eee ee eee eee 


IMPLICIT REAL#S(A-H, 0-2) 
CHARACTERS4 TEL 
COMMON/ES/M, MR, #2, MDUMMY (10) 
COMMON/ALLOC/NVA, IVA, IVAMAX, NREEL, NTBL 
COMMON/LOC/LXX (25) 

COMMON VA(1) 


SEARCH FOR THE FIRST POSITION OF NEXT TABLE 

IL=1VA+1 

DO 10 I=1,NTBL 

IF(LXX(I).LE. IDEB) GC 70 10 

IF(LXX(1).LT. 1) T1SLXX(1) 
10 CONTINUE 
C-—-—— SHIFT ALL TABLES AFTER THIS 

1D=11-IDEE 

IF (I1.£0.1VAt1) GO TO 40 

DO 26 I=1,NTBL 

IF (LXX(1).GT. IDES) LXX(1)=LXX (1) -ID 
20 CONTINUE 

DO 30 I=1!,1VA 

JsI-ID 
30 VA(J)=VACD) 
(———---- PRINT 
40 IVAFIVA-ID 

IF (M.GT.0) WRITE(MP, 2000) TBL, ID, ZDEB 
2000 FORMAT(60X, ‘DELETED TABLE ’,A4,’ COMPACTING ',17,’ REAL WORDS AFTE 

12 VA ,17,")") 

RETURN 

END 
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SUBROUTINE BLIMAG 


ee em a i eee ee eee a ee eee eee a 


E TO CALL AND EXECUTE BLOCK * IMAG? 
C TO PRINT QUT The IMAGE CF DATA CARDS 





IMPLICIT REALSB(A-H, 0-2) 
COMMON/ES/M, ¥R, *P, Mi, MDUMNY (5) 
COMMON/TQVL/CART (20), SDUMMY (501), NULL 
DATA ICARTH/40/ 
( meena ee 
IF (M1.EQ.0) MISHR 
WRITE LMP, 2000) 
2000 FORMAT(///,1X, IMAGE OF DATA CARDS’ /1X,29(°="),/) 
WRITE (MP, 2005) 
2005 FORMAT (/ 
{ SOCOLUMN NUMBE R\/,13X, CARD’ ax, 
2 10X,719, 9X, 729, 9X, 73", 9X, 749, 9K, 95, ING", S77, IK, 8? /, 
3 12%, "NUMBER? , 8X, 8(? 1234567990"), /, 12%, 309-9), 8X, 80/917) 
ICART=0 
ICART1=0 
10 READ(MI, 1000, END=30) CART 
1000 FORMAT (2084) 
ICART=ICART+! 
ICARTI=ICARTi+! 
IFCICARTI.LE. ICARTM) GO TO 20 
WRITE (MP, 2010) 
2010 FORMAT (12%, 8 (1H-), 6X, 80 (1H+), /, $3X, "CARD, 9X, (7 1234567890"), /, 
1  12X, "NUMBER? BX, 9X, 7 £9, 9X, 727 9X93? 9x 747 Sx, 759 OX 16%, 
2 9X,979,9X, 87, /, 50%, COLUMN NUMBER) 
WRITE (MP, 2015) 
2015 FORMAT (IH!, //) 
WRITE (MP, 2005) 
ICART1=0 
20 WRITE(MP, 2020) ICART, CART 
2020 FORMAT (10X, 119, 6X, 2004) 
60 T0 10 
30. WRITE (MP, 2010) 
WRITE (MP, 2030) 
2030 FORMAT(///,S1XEND OF DAT A/,IHN 
REWIND Mi 
READ(M1, 1000) CART 
RETURN 
END 
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SUBROUTiNe BLCOMT 


we a ae ES ee ei wes eee ae i i ee ee ee ee ee 
2 = ee eee eee ee ee eS ae — ee ae ee ee eo oe 


E JQ CALL AND EXECUTE BLOCK ‘CoM: 


IMPLICIT REAL8(A-H, 0-2) 
CHARACTER#4 BLANC, CART 
COMMGN/ES/M, MR, MP, MDUMMY (10) 
COMMON/TRVL/CART (20) , SDUMMY (511), NULL 
DATA BLANC/? = / 
C- I a ce ae ee we ee ee a oe aes a ere ees an aoe 
WRITE (MP, 2000) 
2000 FORMAT(//? COMMENTS? /? 9, 10("=!)/) 
C-———-— READ A COMMENT CARD 
10 READ(MR, 1000) CART 
1000 FORMAT (20A4) 
(-—--—- SEARCH FOR 4 WHOLLY BLANK CARD 
DO 20 I=1,20 
IF (CART(1).NE. BLANC) 62 TO 30 
20 CONTINUE 
RETURN 
30. WRITE(MP,2010) CART 
2010 FORMAT (1X, 2004) 
60 TO 10 
END 


io 


SUBROUTINE &COOR 


C TO CALL BLOCK COOR 
C TO READ NODAL COORDINATES 


— a ae ee a ee ee ee ee SS eee eae ee ee eee en ee ee ee ee ie ie es 
= ont owe See o> ons SP SP OP ee ee oe ee SP ee ee eee eee oe ow oe oe SP OP OP op OP OP 6 ow 6 ow oe ee ee OP ee ow an ow) ot om oe ee ow a 


IMPLICIT REAL#8(A-H, 0-2) 
CHARACTERS4 TEL 

COMMON/COOR/NDIM, NNT, NDLN, NDLT, FAC (3) 
COMMON/ES/™, MR, MP, ML, MDUMMY (9) 
COMMON/ALLOC/NVA, IDUMMY (4) 
COMMON/LOC/LCORG, LDLNC, LDUMMY (23) 
COMMON/TRVL/FACL (3), IN(3), RDUMY (517) 
COMMON VA(t) 

DIMENSION TBL(2) 

DATA ZERO/0. D0/ 





C+++ THiS IS COMMENTED GUT BECAUSE OF if MS -ORTRAN COMD- 
C+++ TILER BUG SHICH WILL NOT INITIALIZE SLARGE ARRAYS 
C+++ THIS ARRAY IS NOW INITIALIZED BY A CALL "OQ INITBL WHICH 


C++ EXISTS SOLELY TO INITIALIZE TABLE NAMES. 
DATA TBL/? CORG? , DUNC? / } 

: HERE IS THE CALL TO GET AROUND THE COMPILE2 HG 
CALL INITBL(TBL, *CCOR’) 

c 


Cet ALL OF THIS WAS TQ GET AROUND THE MICROSOFT 
C+t+ COMPILER BUG 


0 a nn 5 or ns er ee oa oes cane eon eee wes ewe 


c BLOCK HEADING 
IF (ML. EQ.0) MI=HR 
READ (M1, 1000) IN, FAC 
1000 FORMAT (315, 3F10. 4) 
c DEFAULT OPTICNS 
IF(IN(1).87.0) NNTSIN(L) 
IF (IN(2).GT.0) NDLN=IN(2) 
IF (IN(3).G7.0) NDIM=IN(3) 
DO 10 I=1,3 
IF (FACIL (1).NE. ZERO) FAC(I)=FECL(D) 
10 CONTINUE 
(-—--—— PRINT BLOCK PARAMETERS 
WRITE (MP, 2060) M, NNT, XDLN, NDIM, FAC, WA 
2000 FORMAT(//? INPUT OF NODES (M=",12,1)9/9 9, {@('=")/ 








1 13%,'MAX. NUMBER OF NODES (NNT)=!, 15/ 
2 15X%,'MAX. NUMBER OF D.G.F. SER NODE (NDLND =! i3/ 
3 13%,’ DIMENSIONS OF THE PROBLEM (NDIM)=! 25/ 
4 135%,’ COORDINATE SCALE FACTORS (FAC) =", Sic. 5/ 
OD 15%,’ WORKSPACE IN REAL WORDS (NVA)=?, 320) 


S16 


(-———--- ALLOCATE SPACE 
IF (LCORG.ED. 1) CALL ESPACE (NNTANDIM, £, TEL (1), LOGRG) 
IF(LDLNC.EQ. 1) CALL ESPACE (NNT+1, 0, TEL(Z), LDLNC) 
C-——-—  =XECUTE THE BLOCK 
CALL EXCCOR(VA(LCGRS) , VA(LDLNC) } 
RETURN 
END 


SUBROUTINE EXCODA (VCORG, XDLNC) 


e TO EXECUTE BLOCK 'COOR? 
C READ NODAL COORDINATES 





oe ee ee a ee ee ee ee ee ee ee 


IMPLICIT REAL#S(A-H, 0-7) 
COMMON/COOR/NDIM, NNT, NDLN, NDLT, FAC (3) 
COMMON/ES/M, MR, MP, Mi, MDUMMY (9) 
COMMON/TRVL/X1 (3), X2(3), RDUMMY (515), NULL 
DIMENSION VCORS(#), KOLNC(#} 

DATA SPECL/1. 23456789031 / 





E INITIALIZE COORDINATES 
T1=(NNT-1) #NDIM#! 
DO 10 I=1, 11, NDIM 
10 VCORG(1) =SPECL 
c READ NODAL DATA CARDS 
IF (M.GT.0) WRITE (MP, 2000) 
2000 FORMAT(//? NODAL DATA CARDS? /) 
20 - READ(M1, 1000) IN{, X1, INQ, XZ, INCR, IDLA 
1000 FORMAT(2(15, 3F10. 0), 215) 
IF(M,GT.0) WRITE(MP, 2010) INL, Xi, IN, X2, INCR, IDUN 
2010 FORMAT(? )))))*, 2(15, 3612.5), 275) 
IF(IN1.LE.0) GO TO 60 
DECODE THE CARD 
IFCINL.GT.NNT) CALL ERREUR( LL, INL, NNT, 0) 
IF(IN2.GT.NNT) CALL ERREUR{12, INZ, NNT, 6) 
IF(IN@.LE.0) INZ=IN! 
IF(IDUN. 6T.NDLN) CALL ERREUR(13, IDLN, NOLN, 0) 
IF (IDKN.LE.O) IDLN=NDLN 
IF (INCR.EQ.0) INCR=! 
I1=(IN2-IN1) /INCR 
I2=IN1+11#INCR 
IF (11, £0.0) Ii=t 
IF (IN@.NE. 12) CALL ERREUR({4, IN, INZ, 0) 
GENERATE NODES BY INTERPOLATION 
DO 30 I=1,NDIM 
X(T) =X2 (1) #FAC (2) 
X2(1)=X2(1) #FAC(Z) 
30. XQ(T) =4X201) -X1 (1) /T 
11=0 
12=( IN1-1) #NDIM+t 











C 


C 





a9 


T3= (INCR-1) #ND IM 
DO 50 IN=INi, Ne, INCR 
KDUNC (IN+i)=IDLN 
IF (VCCRB (72), VE. SPEC) CALL EARSUN(LS, IN, IN, 9) 
DO 40 T=1,80I™ 
VOGRG(T2)=X1 (1) +ke (1) #72 
40 Te=Te+1 
T=T1+i 
30 Te=ietls 
60 10 20 
Ce----—— (CHECK FOR MISSING NODES 
60 Ti=NNTENDI M+? 
Te=0 
TS=NNT+1 
DO SO I=1, NNT 
Ti=Ti-NDIM 
I3=I3-1 
TF (VCORG(T1)-SPECL) 7a, 80, 70 
70 Tr (I2.E@.0) [2=f3 
60 TO 90 
80 Tr (Te. £8.0) CALL ERREUR (16, IS, 23, 0) 
Wet 2sHe. OFF CALL ERREGR (17, iS, td, c) 
W CONTINUE 
TF(T2.NE.NNT) CALL ERREUR (13, NNT, 12,9) 
TOTAL NUMBER OF D.C.F. 
NDLT=0 
Ti=NNT+1 
DO 100 I=2, il 
100 NDLT=NDLT+KDLNC (71) 
ee 
IF(M.LT.2) GO TO ico 
WRITE (MP, 2020) 
PURMAL As LOK, ube D.0.F.?, Sky X'glane Yl ee 
Ti=1 
T2=NDIM 
DO 110 IN=1, NNT 
WRITE(MP, 2030) IN, KDLNCCING!), (VCORG(T), [=11, Ie) 
2030 FORMAT(10X, 2f5, 3ef2. 5) 





C 


= 
gs 


TI=T1+NDIM 
110 §JTe=I2e+NDIM 
120 = - RETURN 

END 


160 


SUBROUTINE BLDLPN 


—_—— a ee ee ee ee eee eee eee ie ea eae ee lO SOS 
=— SS a ee ee ee ea a eae SS lL SER LS Se ee eee 


C TG CALL BLOCK * DUAN? 
C TG READ NUMBER OF 0.0.7. Pex NODE 





a a a ee SS SS SS SS SS eS 
IMPLICIT REAL#B(A-H, 0-2) 
COMMON/ES/M, MR, MP, Ms, MDUMMY (3) 
COMMON/LOC/LCORG, LOLNC, LDUMMY (23) 
COMMON VA(L) 
ee ee a, ee 


IF(M1,E0,0) Mi=MR 
WRITE (MD, 2000) 
2000 FORMAT(//? INDUT OF DOF. (Me), 12,9097) '17(%=1)) 
CALL EXDLPN(VA(LDLNC)) 
RETURN 
END 


SUBROUTINE EXDLON{KDLNC) 


C TO EXECUTE BLOCK *DLPX! 
C TO READ THE NUMBER OF 0.0.7. 222 NODE 
IMPLICIT REAL#8(A-H, 0-2) 
COMMON/COOR/NDIM, NNT, NDLN, NDLT, FRULL (3) 
COMMON/ES/M, MR, MP, Mi, MDLMMY (9) 
COMMON/TRVL/K1 (15), RDUMMY (5£4)} 
DIMENSION XDLNC (+) 
[- 0 +--+ + oe 5 - + = ee 5 5 5 ee 
IF(M.ST.0) WRITE (MD, 2000) 
2000 FORMAT(//1GROUA OF D.C. 7. °/) 





10 READ(M1, 1060) IDLN, Ki 
1000 FORMAT (1615) 

IF (M.GT,.0) WRITECMP, 2010) TDLN, M1 
2010 FORMAT(? )))))*, 1675) 

IF(IDLN.LE.O) 80 TO 40 

IF (IDLN. ST.NDLN) CALL ERREUR(ZL, IDLN,NDLN, 1) 
(-—----- STORE D.0.F. NUMBERS 
20 DO 30 I=1,15 

J=KL (2) 

IF(J.LE.0) GO 70 10 

IF(J.GT.NNT) CALL ERREUR(22, J, NNT, 1) 
30 XDLNC(J+1)=1DLN 

READ(MI, 1010) Ki 
1010 FORMAT (5X, 1515) 

IF(M.GT.0) WRITE(MP, 2020) Ki 
2020 FORMAT? )))))1, 5X, 1515) 


60 TO 20 
(awenw——— TOTAL NUMGER GF D.G.=. 
40 NDLT=0 

J=NNT +1 


DO 50 1=2,J 

50 NDLT=NDLT+XDLAC(I) 
RETURN 
END 


ia 


SUBROUTINE B_COND 


ee a ae ae a ee ee ee ee Se ot a8 ae a a ee eee 
C TO CALL BLOCK *COND! 
E TO READ BOUNDARY CONDITIONS AND SeNSATS TARLS (NEQ) 


IMPLICIT REAL#8(A-H, O-Z) 
CHARACTER#4 TEL 
COMMON/CODR/NDIM, NNT, NDLN, NDLT, FNULL (33 
COMMON/COND/NCLT, NCLZ, NCLNZ 
COMMON/ALLOC/NVA, IVA, ZDUMMY (3) 
COMMON/ES/M, 4R, MP, M1, MDUMMY (5) 
COMMON/LGC/LCORG, LDLNC, LNEQ, UDIMA, LDUMMY (21) 
COMMON VA (1) 

DIMENSION TBL (2) 


att THIS iS COMMENTeD QUT HECAUSS O- HE *S FUaTRAN COMP- 
C+++ TLER BUG WHICH WILL NOT INITIALIZE SLAR5E ARRAYS 

C+++ THIS ARRAY 15 NOW INITIALIZ2D BY 4 CALL TC INITEL walle 
eit EXISTS SGLELY 70 INITIALIZE TABLE NAMES. 


C 
C DATA TBL/NEQ ?, *DIMP?/ 
c 
c HERE IS THE CALL TO GET AROUND THE COMPILER ELG 
c 
CALL INITBL(TEL, ’COND! ) 
c 


C++ ALL THIS WAS SIMPLY TO GET AROUND THE MICROSOFT 
C+++ COMPILER BUG / 
: 
C- i ai cc cee Ses ce es mse cc lnc Gee cs) cnt es cement csnes es seioneemminiiets 
IF(M1.E0.0) ML=HR 
WRITE (MP, 2000) ™ 
2000 FORMAT(//? INPUT OF BOUNDARY CONDITIONS (M=?,12,9)9/? 9, 
1 33(=")/) 
IF(LNEQ. EQ. 1) CALL ESPACE (NDLT, 0, TBL(L), LNEQ) 
IF(LDIMP.EG.1) CALL ESPACE (NDLT, 1, TBL (2), LDIMP) 
CALL EXCOND(VA(LCORG) , VA(LDLNC) , VO(LNEQ) , VA(LDIMP) ) 
CALL VIDE(LDIMP¢NCLT, 1, TBL(2)) 
RETURN 
END 
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SUBROUTINE EXCOND(VCORS, “DUNC, XN=G, VDIAY) 


C TG ExeCuUs—E BLOCK *COND’ 
t RERD BOUNDARY CONDITIONS AND GENERALE TAGLE (NEG 


SS eee cm ec crm me a ie cm cr mr ee mm mmc ce ee ee ee ee 
Sp a a em em ee cn cr sy ee ee a ce cm et ie ee ee ee 


IMPLICIT REAL#8 (A-H, 0-2) 
COMMON/CODR/NDIM, NNT, NDLN, NDLT, FNULL (3) 
COMMON/COND/NCLT, NCLZ, NCLNZ 
COMMON/RESD/NEQ, NFILLR‘2) 
COMMGN/ES/M, MR, #2, Mt, MDUMMY (3) 
COMMON/TRVL/ KV(18),V (10), 4420), ICOD (10), RDUMMY (473) , NULL 
DIMENSION VCORG(#), KDLNC (#), KNEQ(#), VDIMO UH 
DATA L7/7/,L8/8/,L16/16/ ,X1/G. OD0/, 12/0, OD0/, X3/0. 20/, ZE2G/O. DG/ 
0 aaa 
(-----— CUMULATIVE TABLE KDLNC 
DO 10 INS1,NNT 
10 KDLNCCIN¢£) =KDLNC (IN) +KDLNC (IN+1) 
T1=NNT+! 
IF (M.GE.2) WRITE(MP, 2000) (XDLNC(IN), IN&i, IL) 
2000 FORMAT(//! NUMBER CF D.O.f. PRECEDING EACH NODE  (DLNC)!/ 
1 (1X, 10110)) 
(------- INITIALIZE 
NCLT=0 
NCLNZ=0 
NCL7=0 
IF (M.GE.0) WRITE (MP, 2010) 
2010 FORMAT(//? BGUNDARY CONDITIONS CARDS? /) 
C————- READ A B.C. GROUP CARD : 10 CODES + A2ESCRIBED VAL. 
20 READ(M, 1000) ICOD, (Vit), I=1,L7) 
1000 FORMAT (1011, 7F 10. 0) 
IF (M.G2.0) WRITE(MP, 2020) ICOD, (U1), [=1,L7) 
2020 FORMAT(’ )))))*, 1011, 7E12, 5) 
(-—---- CHECK FOR A BLANK CARD 
J=0 
DO 30 I=1, 10 
30 JeJ#ICOD(1) 
IF(J.20.0) 60 TO 110 
READ ADDITICNAL CARD IF REQUIRED 
12=0 
DO 40 ID=1,NDLN 
IF(ICOD(ID).LT.2) 60 TO 40 
1Z=12+1 
IF(12,NE.L8) GO 70 40 
READ (M1, 1010) (ViI), J=L8, NDLN) 
1010 FORMAT (10X, 7710. 0) 
IF (M.GE.0) WRITE(MP, 2030) (V(I), I=L, NDLN) 
2030 FORMAT(? )))))", 10X, 7E12. 5) 
4 CONTINUE 
C—~---- READ NODE CARDS 
50 —- READ(M1, 1020) (XV (IN), IN=1, L16) 





, 
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1020 FORMAT (1615) 
IF (M.SE. 0} WRITE(MA, 2060) (XV(IN), IN=1,L16) 
2040 FORMAT(? )))))!, £0X, 1615) 


=== Fen" NEQ 
DQ 100 IN=1,L16 
T2=KV (IN) 
— END OF GROUP OF B.C. OR END OF NODES GR ANALYSIS Ur 4 NQDE 





IF (12) 20,20, 60 
60 IE(I2,. ST.NNT) CALL ERREUR(32, 12, NNT, 1) 


LISKDLNC (12) 
TDNSKDLNC (12+1)-1! 

C-—--— GENERATE VDIMP, AUT IT IN XNEG (THE DRESCRIEED D.0.5, GDDSESS) 
1V=0 
DO 90 ID=1, IDN 
It=Ti+! 


IC=IC0D (1D) -3 
IF (IC) 90,70, 80 
70 NCLT=NCLT+1 
VDIMP (NCLT) =ZERO 
NCLZ=NCLZ+1 
KNEQ(11)=-NCLT 
6D TO 90 
BO NCLT=NCLT#1 
IV=1V+1 
VDIMP(NCLT)=V (IV) 
NCLNZ=NCLNZ#1 
KNEG(11)=-NCLT 


90 CONTINUE 
100 CONTINUE 
C-——— ADDITIONAL CARD OF NODE NUMBERS 
60 TO 50 
(-——-—- GENERATE EQUATION NUMBERS IN NEQ 
110 1120 
DO 150 IN=1, NNT 
ID=KDLNC (IN) 
120 ID=ID+1 


IF (ID, GT.XDLNC(INEL)) GO TO 156 
IF(KNEGAID)) 120, 130, 120 


130 T1=1441 
KNEQ(ID) =11 
60 70 120 

{50 CONTINUE 
NEQ=11 

c OUTPUT 





IF(M.LT.0) GO TO 170 
WRITE(MP, 2050) NNT, NDLT, NEG, NCLNZ, NCLZ, NCLT 
2050 FORMAT (// 


1 15X,° TOTAL NUMBER OF NODES (NNT) =, 15/ 
2 15%, TOTAL NUMBER OF D.0.F. (NDLT) =! , 15/ 
3 15X, NUMBER OF EQUATIONS 70 BE SOLVED (NEG) =", 15/ 
4 15X, NUMBER OF PRESCRIBED NON ZERO D.0.F, (NCLNZ)=9, 15/ 
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2060 


2070 


169 
2080 
170 


S i5X,'MUMBER OF PRESCATseD ZERG 0.0.5. (NOLZ) =), [3/ 
6 i15X,’ TOTAL NUMBER QF PRESCRIBED D.0.F. (NCLTD=! , 13/) 


IF (M. GE. 2. AND. NCLT.GT.0) RITE (MA, 2060) (VDIM2 (2), Ist, NCLT) 
FORMAT(//! PRESCRIBED VALUES (VDIMP)'// (10x, 1OE!2.5)} 
WRITE (MP, 2070) 

FORMAT (//? NODAL COORDINATES ARRAY’ // 

{ 7 NO D.L.°,5X,9X", 12K, 7Y?, 124,92), 0X, "EQUATION NUMBER 


2 (NEG)? /) 


12=0 
DO 160 IN=1,NNT 

I1=12+1 

T2=124NDIM 

ID1=KDLNC CIN) +4 

ID2=KDLNC (INF) 

ID=1D2-IDi+i 

IF(IDZ.LT. 101) 1D2=ID! 

X1=VCORS (11) 

IF (NDIM, GE. 2) ¥2=VOORG(T1+1) 

IF (NDIM, GE. 3) X3=VCO%G(11+2) 

WRITE (MP, 2080) IN, 2D, X1, X2, X3, (KNEQ(), I=IDL, 1D2) 
FORMAT (1X, 215, 362.5, 10X, 3076) 

RETURN 

END 
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SUBROUTINE BLPRND 


SS A SE i a EE a a a a a ay ae ee ee ee a ee ee ee eee 
a eh a aD A a A cc Sc ce ae ee ee eee ee ee ee ee ae ee ee 


C 70 CALL BLOCK 7 P&ND 
U TO READ NODAL PRCPERTI=S 


IMPLICIT REAL#8(A-H, O-Z) 
CHARACTER®4 TBL 
COMMON/COCR/NDIM, NNT, NNULL (2) , ENULL (3) 
COMMON/PRND/NPRN 
COMMON/ES/M, 42, MP, Mi, MDUMMY (9) 
COMMON/LOC/LXX (4), LPRNG, LDUMMY (20) 
COMMON VAL) 
DATA TBL/? PRNG? / 
(--~---------—- 
IF (M1.EQ,0) MISHR 
READ (M1, 1600) NPRN 
$000 FORMAT (IS) 
WRITE (M2, 2000) M, NPRN 
2000 FORMAT(//? INPUT OF NODAL PROPERTIES (M=),IE,9)9/9 1, 20(7=95/ 
{ 15X,’NUMBER OF PROPERTIES PER NODE = (NPRR}=", 15) 
IZ{LPRNG, EQ. 1) CALL SSPACE(ANTENDRN, 1, TRL, LORNG) 
CALL EXPRND(VA(LPRNG)) 
RETURN 
END 


=e a ee ee Se ee a ee ee ee i ee ee ee eS 





SUBROUTINE EXPRND(VPRNG) 


ee SS ey ee ee ee ee ee 
— ae eee Se a ER eee ee ee ee Sa a a SS See ee ee SS 


C TO EXECUTE BLOCK * PRND 
C READ NODAL OROPERTIE 

IMPLICIT REAL#B(A-K, 0-2) 

COMMON/COOR/NDIM, NNT, NNULL (2) , ENULL (3) 

COMMON/PRND/NPRN 

COMMON/ES/M, MR, MP, Mi, MDUMMY (9) 

DIMENSION VPRNG(#) 





C-——---— READ PROPERTIES NODEWISE 
T1=NNT#NPRN 
READ (M1, 1000) (VPRNG(I), I=4, 21) 

1000 FORMAT (GF 10. 0) 
IF(M,GE.0) WRITECMP, 2000) (VPRNG(I), I]t, 113 

2000 FORMAT(//? CARDS OF NODAL PROPERTIES'/ (? )))))?,@E12.5)) 
RETURN 
END 


arOws 


SUBROUTINE BLPREL 


C TO CALL BLOCK * PRE.’ 
t TO READ ELEMENT PROPERTIES 


me a ce ee me i wm i em ec ee ee me ce mm ee ee ee ee ee ee 
eS ee ae Ge ee ce ee es se ee ee ee ee ee eee 


IMPLICIT REAL#8(A-H, 0-2) 
CHARACTERE4 TL 
COMMON/PREL/NGPE, NPRE 
COMMON/ES/M, ¥R, MP, “1, MDUMMY (3) 
COMMON/LGC/LXX (5) , LPREG, LOUMMY (19) 
COMMON/TRVL/INA2), RDUMMY (520) , NULL 
COMMON VA (1) 

DIMENSION TEL (2) 


C+++ THIS 15 COMMENTED GUT BECAUSE GF THE ¥S SGRTRAN COMP- 
C+++ ILER BUG SHICH WILL NOT INITIALIZE SLARGE RARAYS 
Ctt+ THIS ARRAY IS NGW INITIALIZED EY A CRUL TG INTTBL wriCH 
C+++ EXISTS SGLELY TG ([NITIALIZE TORLE NAMES, 
C 
& DATA TBL/? PREG, V = / 
C 
HERE IS THe CALL 10 GET AROUND THE COMPILER BUG 
CALL INITSLITBL, > PREL!) 


C+++ ALL THIS WAS SIMPLY TO SET AROUND THE ZICROSOFT 
C+++ COMPILER BUG 


C 

(-----------——-------+----- —--—_- --__---- —-- —__- ---- -—- - --- ++ + ---- 
TF (M1.€0.0) Mi=HR 

C READ NUMBER OF GROUPS AND PROPERTIES PER GROUP 





READ(M1, 1000) IN 
1000 FORMAT (215) 
IFCIN(L).87.0) NGPESIN() 
IF (IN(2).67.0) NPRESIN(2) 
WRITE(MP, 2000) §M, NGPE, NPRE 
2000 FORMAT(//? INPUT CE ELEMENT PROPERTIES (Me? 12,279 /9 9, 
1 35(°=1)/15X, "NUMBER GF GROUPS OF DROPERTIES  (NGPE)=!, I5/ 
2 {5X,°NUMBER OF PROPERTIES PES GROUP (NPRE}=", 15) 
TF (LPREG.ED. 1) CALL ESPACE (NGPEXNPRE, «, 7HL (1), LPRES) 
CALL ESPACE (NPRE, 1, TBL(2) ,L1) 
CALL EXPREL (VA(LPREG) , VA(L1)) 
CALL VIDE(L1, 1, TEL (2)) 
RETURN 
END 
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SUBROUTINE EXDREL(VOREG, V1) 


ec ee eee ee eee eee See elle 
= Se a a ee ee ee ee ae ee a eS ee Bm E lUlULUUlUc ECU 


C TO EXECUTE BLOCK *PREL! 
C - READ ELEMENT PROPERTIES 

IMPLICIT REAL¥8(A-H, 0-2) 

COMMON/PREL/NGPE, NPRE 

COMMCN/ES/™, MR, MP, Mi, MDUMMY (9) 

DIMENSION VPREG(#), Vi (#) 


IF(M.GE.0) WRITE (MP, 2000) 
2000 FORMAT(//? CARDS OF ELEMENT DROSERTI=S! /) 
c READ A GROUP 
[1=MINO(7, NPRE) 
Js! 
10 - READ(M1, 1000) ISP, (V1 (1), I=1, 11) 
{000 FORMAT (IS, 7F10. 0) 
IF(M.GE.0) WRITE (HP, 2010) IGPE, (VICI), I]t, IL) 
2016 FORMAT( )))))!, 15, 7E12. 5) 
IF(IGPE.4£.0) 60 10 40 
IF(IGPE.GT.NGPE) CALL ERREUR(41, IGE, NGPE, 1) 
IF(NPRE.LE.7) GO TC 20 
READ THE PROPERTIES 
READ(M1, £010) (Vi (1), 1=8, NPRE) 
1010 FORMAT (5X, 7F10.0) 
IF(M.GE.C) WRITE(HP, 2020) (LCT), [=8, NPRE) 








2020 FORMAT(? )))))*,5X, 7E12. 5) 
20 DO 30 I=1,NPRE : 
VPREG(J) =Vi (1) 
30 JeJ41 
60 70 10 
40 RETURN 
END 
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SUBROUTINE BLELEM 


C TO CALL BUCEK "ELEM 
C TO READ ELEMENT DATA 


ce em: pcm Ae a ae ce ee mm cme ae ce mc ce mm cm cm cm cm cmc ce ee ee 
> ee ES ee a ee ee ee ee ee ee ee ee 


IMPLICIT REAL#(A-H, 0-2) 

CHARACTER#4 TEL 

COMMON/COOR/NDIM, NNT, NDLN, NNULL, FNULL (3) 

COMMON /PRND/NPRN 

COMMON/PREL/NGPE, NORE 
COMMON/ELEM/NELT, NNEL, NTPE, NGRE, YE, NIDENT, NPS 
COMMON/ASSE/NSYM, NMG, MFILLR (2) 

COMMON/RESO/NEG, NFILLR (2) 

COMMON/ES/M, MR, MP, 41, M2, MDUMMY £3) 
COMMON/LOC/LCORG, LDLNC, LNEG, LDINP, L22NG, LOREG, LLD, LLOCE, LORE, LNE, 
{ LPRNE, LPREE, LOLS, LXE, LFE, LX6S, UXGD, L¥Sz, FG, . 225, LDUMMY (5) 
COMMON VA{1) 

DIMENSION TBL(6), IN(6) 


C+++ THIS IS COMMENTED CUT BECAUSS OF THe MS FORTRAN CO*P- 
C+++ ILER BUG SHICH WILL NOT INITIALIZE $LARSE ARRAYS 

C+++ TAIS ARRAY iS NOW INITIALIZED BY A CALL 70 INITBL WHICH 
C++ EXISTS SOLELY 70 INITIALIZE TABLE NAMES. 


c 
C DATA TBL/1LD ',°LOCE?,'CORE?,'NE ',’PRNE?, 1DREEY/ 
£ 
c HERE 1S THE CALL TO GET ARGUND THE COMPILER BUG 
c 

CALL INITBL(TBL, ’ELEM ) 
C E 


C+++ ALL THIS WAS SIMPLY 70 GET ARQUND THE MICROSOFT 
C+++ COMPILER BUG 


Cn nn rn ne He 


IF(M1,£Q.0) MLSMR 

IF (M2. E0.0) M2=ME 

READ (M1, 1000) IN 
1000 FORMAT(6I5) 

IF(IN(L).GT.0) NELTSING!) 

IF (IN(2).8T.0) NNELSIN(2) 

IF (IN(3).67.0) NTPESIN(3) 

IF (IN(4) 87.0) NGRE=IN(4) 

IF(IN(5) .NE.O) NSYME1 

IF (IN(6) .NE.G) NIDENT=! 

WRITE(MP, 2000) M,NELT, NNEL, TPE, NGRE, NSYM, NIDENT 
2000 FORMAT(//? INPUT OF ELEMENTS (M=',72,°)9/) ,20(=9)/ 


{ 15X,’MAX. NUMBER OF ELEMENTS (NELT) =", I5/ 
2 15X,'MAX. NUMBER CF NODES PER ELEMENT  (NNEL) =! I5/ 
3 15X,'DEFAULT ELEMENT TYPE (NTRE) =? 15/ 
4 15X,"NUMBER QF GROUPS OF ZLEMENTS (NGRE) =! 5/ 


iO 





S 15X," INDEX FOR NGN SYMMETRIC PROBLEM = (NSY™)=!, 25/ 
6 45X,INDEX FOR IDENTICAL ELEMENTS — (NIDENT)=", 15/) 
IF(LLD.EG. 1) CALL ESPACE (NEG+1,0, TEL (1), LLDI 

TF (LLOCE.EQ.1) CALL ESPACE (NNELENDLN, 0, TBL (2), CLOCE) 

IF (LCORE.EQ.1) CALL ESPACE (NNELENDIM, 1, TBL(3), LCORE) 

IF (LNE.EQ.1) CALL ESPACE(NNEL, 0, TBL(4), UNE) 

IF (NPRN. GT. 0. AND. LPRNE. EQ. 1) CALL ESPACE (NNELANPRN, {, TEL (5), ARNE) 
IF (NPRE. GT. 0. AND. LARGE. 20,1) CALL ESPACE (NARE, 1, THL(6),LORZE) 
CALL EXELEM(VA(LCORG) , VA(LDLNC) , VA(LPRNG) , VA(LEREG! , VA(LLOCE: 


i VA(LCORE) , VACLNE) , VA(LPRINE) = VA(LLD)) 
WRITE (MP, 2010) NKG,NPG 

2010 FORMAT(ISX,°LENGTH OF A TRIANGLE IN X6 (NKG) =? , 149/ 
i 1X, NUMBER OF INTEGRATION POINTS (NPG) =, i /) 
RETURN 
END 


SUBROUTINE EXELEM(VCORG, XDLNC, VORNG, VERS, XLOCE, VCORE, KNE, VERNE, 
VPREE, KNEQ, KLD) 
ee a = = = SS Se SSeS 
C TQ EXECUTE BLOCK ‘ELEM 
C READ ELEMENTS DATA 


IMPLICIT REAL #8 (A-H, 0-7) 
COMMON /COOR/NDIM, NNT, NNULL (2), PNULL (3) 
COMMON /PRND/NPRN 
COMMON/PREL/NGPE, NPRE 
COMMON/ELEM/NELT, NNEL, NTPE, NGRE, ME, NIDENT, NEG 
COMMON/ASSE/NSYM, NXG, NXE, NDLE 
COMMON/RGDT/IEL, ITPE, ITPE1, IGRE, IDLE, ICE, ZPRNE, IPRES, INEL, IDES, IPG 
{ , ICODE, IDLEO, INELO, IP6O | 
COMNON/ RESO/NEQ, NEILL (2) 
COMMON/ES/M, MR, MP, #1, M2, MDUMMY (8) 
DIMENSION VCORG(#), KDLNC(#) , VORNG (4) , VEREG (#), XLOCE (#), VODRE (4), 
NE (#) , VPRNE (#) , VPREE (#) , 4NEQ(H) ,KLD (4) 
DATA 110/10/, 115/15/ 








i en re ae 2 es we ce ne ee ee ee ee ee ee ee 
C INITIALIZE 

OPEN (2, FILE=" $$00c. DAT’ , STATUS='New’ , FORM=! UNFCRMAT TED? } 

NDLE=0 

TELT=0 

NPG=0 

REWIND ¥2 


IF (M.GT.0) WRITE (MP, 2000) 
2000 FORMAT(//! ELEMENTS CARDS? /) 
C---—--- READ AN ELEMENT CARD 
10 - READ(M1, 1000) TEL, IGEN, INC, ITPE, IGPE, IGRE, (KNE(IN), INE1, 110) 
1000 FORMAT (1615) 

IF (M.GT.0) WRITE(MP, 2010) IEL, IGEN, INC, ITE, IGA, IGRE, 

(KNE CIN), INSi, £10) 

2010 FORMAT(? )))))1, 1625) 


errr 


IF(IEL) 80,60, 20 


C---—-— NUMBER OF NODES AND ADDITIGNNAL CARDS AS ROGUIRED 
20 INEL=0 

Ii=1 

i2=110 


30 DO 40 IN=I1, 12 
IF (KNE(IN).EG@.0) 60 TO 50 
INEL=INEL+! 
40  CUNTINUE 
Tt=le+! 
Té=11+i15 
READ (Mi, 1000) (ANECIN), IN=I4, I2) 
IF(M.6T.0) WRITE(MP, 2010) (KNECIN), IN=Ii, 22) 
60 TO 30 
C——~——-- CHECKING 
a0 IF (INEL.GT.NNEL) CALL ExREURISL, INGL, NNEL, 1) 
IF(INCR.EG.O) INCR=1 
IF (ITPE.ER.0) ITPESNTR= 
IF (TGPE.GT.NGPE) CALL ERREUR(S3, ISPE,Noec, 1) 
IF (IGPE.EG.0) IGPE=1 
IF (IGRE.GT.NGRE) CALL ERREUR(S4, IGRE, NGRE, :) 
(------- ELEMENT 5ENERATION 
IF (IGEN.EG.0) iGEN=! 
DO 70 IE=1, IGEN 
TP (TEL. SPONELT) CALL ERREUR(S5, ISENEL Tt} 











c GENERATE KLOCE AND UPDATE KLD 
CALL LOCELD(KDLNC, KNE, KNEQ, XLOCE, 4.5) 
c GENERATE ELEMENT COGRDINATES AND PRCPERTIES 
CALL XTRELM(IGPE, VCORG, VPANG, VPREG, KNE, VCCRE, VPRNE, VBASE) 
c CHECK ELEMENT NODE NUMBERS AND 0.0.F. 
1PGO=0 
ICODE=1 


CALL ELEMLB(VCDRE, VORNE, VPRES, VOLE, VKE, VFI 
IF (INEL. EQ. INELO. AND. IDLE. EQ. IDLEO) GO 70 55 
WRITE(NP, 2020) IEL, INEL, INELO, IDLE, IDLEO 
2020 FORMAT(? 4% ELEMENT’, 15, INCONSISTENT’ /SX, INEL=’,14,? INELG=', 15 
{/ 5X,’ IDLE=’,15,? IDLEO=", 15) 
C—-——- UPDATE TOTAL NUMBER GF INTEGRATION POINTS 
55 _ NPG=NPG+IPG0 





c STORE ON ELEMENT FILE 
CALL WRELEM(M2, KLOCE, VCORE, VPRNE, VPREE, KNE) 
IELT=IELT+! 

C-——— PRINT ELEMENT CHARACTERISTICS 
CALL PRELEM(KLOCE, VCGRE, VPRNE, VPREE, KNE) 

c NEXT ELEMENT TO BE GENERATED OR READ 





DO 60 IN=1, INEL 
60 KNECIN)=KNE(IN) +INCR 
IF (IDLE. GT.NDLE) NDLE=IDLE 


70 ~—s TEL=ITEL+! 
GO TO 10 
C--—--———-_ CHECK IF TOTAL NUMBER OF ELEMENT 15 EXCEEDED 


LZ 


80 - IFLIELT.NE.NELT) CALL ERREUR(S7, IELT,NELT, 1) 
C-—-—- PRINT BAND HEIGHTS 
IMA=0 
1M0=0 
TL=NEQ+! 
DO 90 1=2, 11 
J=KLD (1) 
IF (3.87. IMA) IMA=J 
90 IMOSING+J 
C=IMO 
C=C/NEG 
WRITE(MP, 2038) C, IMA 
2030 FORMAT(/!5X,’MEAN BAND MEIGHT=),F8.1,) MAXIMUM? 15) 
IF(M,GE.2) WRITE (MP, 2040 MDT), fet, 11) 
2040 FORMAT(//) TABLE OF BAND HEIGHTS’ / (10x, 2015)) 
c TRANSFOR KLD INTO ADDRESSES 3° ClLueN TOP TERM 
IF (NSYM. 0.0) NKE=(NDLE*(NDLE+1)} /2 
IF {NSYM. EQ. 1) NKE=NDLE#NDLE 
KLD (1) =1 
DO 100 1D=2,11 
100 KLD ID) =XLD (1-1) +KLD{1D) 
NKG=KLD (11) =1 
IF(M.GE.2) WRITE(MP, 2050) (KLD{ID), ID=41, 7! 
2050 FORMAT(//! TABLE OF ADDRESSES OF COLUMN fh TERMS (LD)! / 
1 (10X, 2016) } 
RETURN 
END 





$LARGE 
SNOFLOATCALLS 
SUBROUTINE LOCELD (KDLAC, KNE, 4NSG, KUCCE, 400 


ee 


C TQ FORM THE ELEMENT LOCALIZATION TABLE (LOCE) 

C AND UPDATE COLUMN EEISHTS GR A GIVEN ELEMENT 

(ess SS Seas a Sa sss 2SS=—=— 5 —— ee ee 
REAL*8 FNULL 
COMMCN/COOR/NDIM, NNT, NNULL (2), SNULE (3) 
COMMON/RGDT/NUL (4) , IDLE, NULL (3), INEL, EDUMMY (6) 
DIMENSION KDLNC(#) , KNE (#) ,KNEQ (#)  KLOCE (+), 4LD (4) 
DATA NDLMAX/32000/ 


(—---—- GENERATE KLOCE FROM KNEO 
IDLE=0 
LOCMIN=NDLMAX 
DO 20 IN=t, INEL 
INNSKNE (IN) 
IF (INN. GT, NNT) CALL ERREUR(56, INN, NNT, 1) 
TEG=KDLNC (INN) 
IEQ1=KDLNC (INN+1) 
10 IF(IEQ.GE.IEG1) GO 79 20 
TEQ=IE0+1 
IDLE=IDLE+i 
JEKNEQ(TEQ) 
KLOCE (IDLE) =J 
IF (J.L7, LOCMIN, AND. J.GT.0) LOCMINEJ 
6G TO 10 
20 CONTINUE 
UPDATE TABLE OF COLUMN HEIGHTS (KD) 
DO 30 ID=1, IKE 
J=ALOCE (1D) 
IF(J.LE.0) GO 10 30 
THE J-LOCMIN 
IF (TH, GT. KUD(J+1) )XLD(J+1)=IK 
30 CONTINUE 
RETURN 
END 





C 
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SUBROUTINE XTRELY¥(IGIE, VCORS, V2ANG, VPREG, XZ, VOCRE, VANE, VOIEZ) 


———— OS a en eS eee SS SS SS SS SS SS SSS ee ee me aS SS SS iS Sa ee es ae ee 
Ta a Ga Says = a eS SSS SSS TS OS SS SS SS SS SS SS aS ee ae eee ee a ee eS eS ES Se SS es SS 


C TO GENERATE CLEMENT COORDINATES AND JRUPERTIES ACH 
C GLGBAL ARRAYS 
C (IGPE: GROUP NUMBER FOR ELEMENT PROFERTI=CS) 


IMPLICIT REAL*#8(A-H, 0-2) 
COMMON/CGOR/NDIM, NNULL (3), FNULE (3) 

COM4GN/ PRND/NPRN 

COMMON/PREL/NSRE, NPRE 
COMMON/REDT/NUL (3), ICE, TPRNE, IPRE=, ENEL, TOUMMY (6) 
DIMENSION VCGRG(#), VPRNG (#) , VAREG (#) , XNE(#) , VOGRE (#), 
1 VPRNE (#), VPREE (#) 

G-—--- + 

o GENERATE ELEMENT COORDINATES 
IPRNE=0 
ICE=0 
DO 30 IN=1, INEL 
IC=(KNE (IN) -1) #NDIM 
DO 10 I=1,NDIM 
ICE=ICE+1 
Ic=IC+t 

10 VCORE (ICE) =VCGRG (IC) 

(--—-——-_ GENERATE ELEMENT NODAL PROPERTIES 
IF (NPRN. EG. 0) GO TO 30 
IC=(KNE (IN) —1) #NDRN 
DO 20 I=1,NPRN 
IPRNE=1PRNE+1 
TC=fC+1 

20 VPRNE (I PRNE) =VPRNG (IC) 
30 CONTINGE 

(————- GENERATE CLEMENT PROPERTIES 
IPREE=0 
Ir (NPRE.EG.0) SB TO 50 
IC=(1GRE-1) #NPRE 
DO 40 I=1, NORE 
IPREE=] PREE+1 
IC=IC+i 

40 VPREE (I PREE) =VPREG (IC) 

00 =RETURN 

END 


= ee ee ee ee ee ee ee ee ee eee 











lierS 


SUBROUTINE PRELEM(KLOCE, VCORE, VOINE, VIRES, AVE) 


IMPLICIT REAL#B(A-H, 0-2) 

COMMON/ PRND/NERN 

COMMON/ PREL/NGPE, NPRE 

COMMON/RGDT/IEL, ITPE, ITPEL, IGRE, IDLE, ICE, IPRNE, IPREE, INE, NULLS) 

COMMON/ES/M, MR, MP, MDUMMY (1.0) 

DIMENSION KLCCE (#) , VCORE (#), VPRNE(#) , VPREE(#) ANE (#) 
Oe a ee a ee 

IF (M.GE.0) WRITE(MP, 2000) IEL, ITE, INEL, IDLE, 1PQNZ, [PREE, IGRE 
2000 FORMAT (10X, ELEMENT:’,15,! TYPE!’ 12,9 NM! 12) Fes), 

1 13)! N. PROP:!, 13,’ EL, PROP:?, 13,! GROUP:!, 13) 

IF(M.GE.O) WRITE (MP, 2010) (KNE(I), I=t, INEL) 
2010 FORMAT(15X, ‘CONNECTIVITY (NE)', 2015/ (32x, 2015) ) 

IF(M.LT.1) 60 70 10 

WRITE (MP, 2020) (XLOCE(I), I=1, IDLE) 
2020 FORMAT(ISX,LOCALIZATN (LOCE)’, 2015/(32X, 2015) ) 

WRITE (MP, 2030) (VCORE(I), I=t, ICE) 
2030 FORMAT (15x, COORDINATES (CORE) ’ , 8E12.5/(32X, BE1Z. 5) ) 

IF (NPRN.GT.0) WRITE (MP, 2040) (VPRNE(1), I=f, IPRNE) 
2040 FORMAT(ISX,'NOD.PROP, (PRNE)*, BELZ.S/ (3X, BE1Z, 5)) 

IF (IPREE.G7.0) WRITE(MP, 2056) (VPREE(I), I=1, IPREZ) 
2050 FORMAT(15X, ELEM, PROP. (PRE)? 8E12.5/(32X, E12. 5)) 
10 RETURN 

END 





= meee ee mS SS SSS eS ee ew Se eee ee 


SUBROUTINE WRELEM(ME, XLOCE, VCORE, VARNE, VOREE, ANE) 





IMPLICIT REAL#B(A-H, 0-2) 
COMMON/RGDT/IEL, ITPE, ITPE1, IGRE, IDLE, ICE, [PANE, IPREE, INEL, NULL (6) 
DIMENSION KLOCE (#) , VCORE (#) , VPRNE(#), VPREE (#), KNE (#) 
tr rr me ee nn ee see = eee ess co es cme et a ee 
IPRNE1=IPRNE 
IF (IPRNE1.EQ.0) IPRNE1=! 
IPREE 1=IPREE 
IF (IPREE1.£0.0) IPREE1=! 
WRITE (ME) IEL, ITPE, IGRE, IDLE, ICE, IPRNE1, IPREEL, INEL, 


{ (KLOCE(1), I=1, IDLE), (VCORE(I), 2=1, ICE), 
2 (VPRNE (1), I=1, IPRNEL), (VPREE (1), I=, IPREE1), 
3 (KNE (1), T=1, INEL) 

RETURN 

END 


1G 





SUBROUTINE RDELEM(ME, KLOCE, VCORE, VPRNE, VOREE, 4VE) 


A ee ey ee ee ee ey ee ee ee ee ee ee eee a ee eS aes ae aS ES ee eee eS SS 
a ae ee ee ee ee ee ee ne ee eee ie 


C READ ELEMENT PROPERTIES FROM FILE ME 


IMPLICIT REAL#S(A-H, O-Z) 
COMMON/RGDT/IEL, ITPE, :TPE1, IGRE, IDLE, ICE, IPRNE, [PREE, INEL, NULL) 
DIMENSION KLOCE (+), VCORE (#) , VPRNE (#) , VPREE (+), KNE (4) 





C-— a a ee nee an ae ae a ae anes een ae eee a ae 
READ(ME) IEL, ITPE, IGRE, IDLE, ICE, IPANE, IPREE, INEL, 
{ (KLOCE (1), I=1, IDLE), (VCORE(L), f=1, ICE), 
2 (VPRNE (1), T=2, IPRNE), (VPREE(I), I=1, TPREE), 
3 (KNE (1), 1=1, INEL) 
RETURN 
END 


C TO CALL BLOCK "SOLC’ 
C TO READ CONCENTRATED LOADS 


SP ES SS SS ES ce ye eS SS ee ee ee eee ee ee ee ae ae ee ie 
a eS ep ee ee ee ee ee ee a a Se ee ee Se 


IMPLICIT REAL¥8(A-H, 0-2) 
CHARACTER#4 TBL 

COMMON/RESO/NEQ, NFILLR(2) 
COMMON/ES/M, MR, MP, M1, MDUMMY (9) 
COMMON/LOC/LCORG, LOLNC, LNEG, LXX(15), LEG, LDUMMY (6) 
COMMON VA(1) 

DATA TBL/’FG '/ 


IF(M1.E0.0) Mi=#R 
WRITE(MP, 2000) 
2000 FORMAT(//! INPUT CF CONCENTSADED LOADS (M=*,12,7)°/! ?, 
1 39('=1)) 
IF(LFG. EG. i) CALL ESPACE (NEQ, {, TBL, LF) 
CALL EXSOLC(VA(LFS) , VA(LDLNC) , VALNEQ) ) 
RETURN 
END 


Lo? 


SUBROUTINE EXSGLC (V6, KDLNC, ANEG) 


—— a a ee OS ee SS SSS TS SS ee SS ae ee eee Seer ee Eel ere et EE Cc Ec EE UL em hh rh Uh; hee eT er Sehr EK hUhcrhew—hUL CU ThUcUV Z—hUhT FE SS 
Se ee i a ee ee eee a eee eee es ee ee 


C TO EXECUTE BLOCK °SOLC’ 
C READ CONCENTRATED LGADS 


IMPLICIT REAL#@ (A-H, 0-7) 
COMMON/COOR/NDIM, NNT, NDUN, NNUCL, FULL (3) 
COMMON/ RESO/NEQ, NFILLR (23 
COMMON/ES/M, MR, MP, #1, MDUMMY (9) 
COMMON/TRVL/KV (16), Vi14), ROUMMY (499) NULL 
DIMENSION VFG(+) ,KDLAC (+), ANEQ(#) 

DATA L16/16/ 


C———— READ DATA 
IF (M.GE. 0) WRITE (MP, 2000) 
2000 FORMAT(//? CARDS CF NODAL LOADS? //) 
10=MINO (7, NDLN) 
10 READ(M1, 1000) IG, (VI), I=1, 10) 
1000 FORMAT(I5, 7F10.0) 
IF (NDLN. 6T.7) READ (M1, 1005) (V¢I), 1=8, NDLN) 
1005 FORMAT (SX, 7F10. 0) 
IF (M. GE. O) WRITE (MP, 2010) 16, (VAI), I=1, NDLN) 
2010 FORMAT? )))))7, 25, 7E12.5/(7 9))))7, SX, ELS. 5D) 
IF(I16.LE.0) G0 70 60 
20 READ(M1, 1010) (KV(I), I=1, L16) 
1010 FORMAT (1615) 
IF (M, GE, 0) WRITE (MP, 2020) (X(T), I=4, 136) 
2020 FORMAT(? )))))*, 1625) 
C----- DECODE NODAL DATA 
DO SO IN=1,L16 
LL=KV (IN) 
IF(Z1.67.NNT) CALL ERREUR(B1, 12, NAT, 1) 
IF (11) 10, 10, 30 
30. IDI=KDLNC (11) +1 
ID2=KDLNC (11 +1) 
J=0 
DO 50 ID=!D1, 102 
JeJ+1 
TEQ=KNEQ(1D) 
IF (IER) 50, 50, 40 
40 «VEG (IEG) =VFG(IE2) +V(J) 
50 CONTINUE 
60 TO 20 
C————- OUTPUT 
60 «IF (M, GE. 1) WRITE(MP, 2030) (VEG(I), I=1, NEO) 
2030 FORMAT(//? TOTAL LOAD VECTGR’/(10X, 10612. 5)) 
RETURN 
END 


iro 





SUBROUTINE BLSCLA 


wee ee ee ee es © Ss es ee ee ee ee ee a sae ei ew a i ee ei ee ei ere eer ae ee ee 
—w Se oe Se Se Se ee ee ee ee ee ee ee ee ee ee ee es ee ee ee ee ee ee ee ee ae ee a ae 


e OeCAle BEG ehe* SULR! 
e TO ASSEMBL= DISTRIBUTED LORDS (ELEMENT FUNCTION 7) 


a eee eee i ee oe i i ee et ce ee ee ee er ee ee ae eee 
eee Sa ee ee eee ee ee eee eee eee ee SS ee ee 


IMPLICIT REAL*3(Q-H, 0-2) 

CHARACTERS4 TEL 

COMMON/COGR/NDIM, NNT, NDLN, NDLT, FNULL (3) 
COMMON/ELEM/NULL (4) , ME, YNULL (2) 

COMMON /SSSE/NSY¥, NAG, NKE, NDLE 

COMMON/RESO/NEQ, NRES, NRES 

COMMON/ES/M, MR, MD, #12, MDUMMY (3) 

COMMON/LOC/LOORG, LDLNC, LNEG, LDIMP, LDRNG, LPREG, LLD, LLOCE, LCORE, LNE, 
{ LPANE, PREE, LDLE, LKE, LFE, LXGS, LKGD, LXGI, LPG, LRES, LDLG, LDUMMY (4) 
COMMON VAL) 

DIMENSION TBL(3) 


+++ THIS IS COMMENTED OUT BECAUSE CF THE MS FORTRAN COMP- 
C+++  ILER BUG WHICH WILL NOT INITIALIZE $LARGE ARRAYS 


coat THIS ARRAY TS NOW INITIALIZED BY A CALL JO INITBL wHiCe 
C+++ EXISTS SOLELY TQ INITIAL TZe FABLE NAMES. 

C 

C Seem eG 4 Wee re 6°, DLE *, KES "xsd ’, bi’, 
eee aeReES * / 

c 

C SeRe 15 THE CALL TO Get AROUND THE COMPILES BUG 

C 


Meee INI TELITRL, ’SOLR’) 
C 
C+++ ALL THIS WAS SIMPLY 70 Ge: ARCUND Tek MICROSOFT 
Ct+t+ COMPILER BuG 


c 

(we 6 ee en ne me 2 = en 2 en oe we ee Beas oe LS eee ee ee 
TF UML.E0. 0) MISMR 
IF (¥2, 0.0) Me=ME 
WRITE (MP, 2000) & 

2000 FORMAT(//! ASSEMBLING OF DISTRIBUTED LOADS (M=",12,1)'/ 


£ 1X, 40(7=")/) 

S(LEG.EQ.1) CALL ESPACE(NEQ, 1, TBL(1), LEG) 

F(LKE.EQ. 1) CALL ESPACE (NKE, !, TBL(2) , LXE) 

S(LFE.EQ.1) CALL ESPACE (NDLE, ‘, TBL(3),LFE) 

F(LDLE.EQ.1) CALL ESPACE (NDLE, 1, TEL (4), LDLE) 

S(LKGS. EG.1) CALL ESPACE (NXG, 1, TELS), LKGS) 

IF(LKGD.EG. 1) CALL ESPACEINEG, {, TEL (6), LGD) 

IF (NSYM. £9, 1.AND, LAGILEG, 1) CALL ESPACE (NKG, 1, TEL (7) ,LKGT) 

IF(L9ES. EG. 2) CALL ESSACE(NDLT, :, TBL(@), LRES) 

CALL EXSOLR(VA(LLD) , VA(LDIMP) , VA(LLOCE), VA(LCORE) , VA(LP8NE) , 
VA(LPREE) , VA(LNE) , VA(LKE) , VA(LEE) , VA(LKGS) , VACLKGD), 


4 

2 VA(LXSI) , VA(LFG) , VA(LCORS) , VA(LDLNC) , VACLNEQ) , 
3 VA(LRES) , VA(LDLE) ) 

Kee WRN 

END 


Lad 


SUBROUTINE SXSCLACMLD, VOIMG, ALGCZ, VOGRE, VPANE, VASES, HNE, VE, VEE, 


Cs 


cs 09 


V46S, VAD, VKGI, VEG, VCORG, ADLNC, KNEQ, VRES, VDLE) 

TO EXECUTE BLOCK 1SOL8 

ASSEMBLE DISTRIZUTED LOADS (ELEMENT FUNCTION 7) 
a a ee SSS 


Nell iitetBAied (Ask, 0-0) 
COMMON/ESS=/NSYM, NAG, NKE, NDLE 
ae NE ILER 
COMMON/ES/M, #8, MO, Mi, Me, MDUMMY (8) 
DT ScNSICN xDC#), VDIMP UH , XLGCE (#), VCGRE (#), VEBRNE (4), VPREE (4), 
i ANE (#), VKE(#), VPE(#), VKGS (#) , VEGD (+), VKGI (#), VFG(*) , VUORG(#), 
2 KUNG (#)  HNeO(#) VRES (ENDL (2) 
un~--— »= ASSEMBLE FG 
CALL ASFG(ALD, VDime, ALOCe, VCORc, VERN, VPREE, Nec, VAr, VFc, VKGS, 
1 VKGO, VAS, VF, VOLE, VRES) 
ae CUT PUT 
i2(M.G2.1i) WRITC(MA, 2006) (VFG(I), I=1, NEQ) 
eC3O FGRMAT(/' GLGBRL LOAD VECTGR (FG)'/ (1X, 10&12.5)) 
RETURN 
END 
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SUSROUTINE GSFG(ALD, VOIMD, KLOCE, VOGRE, VPRNE, VISEE, ANE, VAE, VE, 
! VKGS, VKSD, VKGZ, VFS, VILE, VRES? 


i ee ee me ee ee i ae 
a ee a pm ee ee ee ee me ea ee eae i ee a ee 


IMPLICIT REAL#B{A-H, 0-2) 

COMMON/ELEM/NELT, NNEL, NTPE, NGRE, ME, NIDENT, NULL 

COMMON/OSSE/NSYM, MFILLR (3) 

COWMON/SES0/NEQ, NEILL R(2) 

COMMEN/RGDT/IEL, ITPE, ITPEL, ISRE, IDLE, ICE, IPRNE, IPREE, INEL, IDEG, 195 
{  , COD, NULL (3) 

COMMON/ES/#, ¥R, MD, M1, M2, MDUMMY (3) 

DIMENSION KLD(#), VDIMP (+), KLOCE (#), VCORE (#) , VPRNE (#) , VPREE(#), 

1 XNE(#), VRE(#), VFE(#), VAS (#) , VASD (#) , VAGI (#) , VFG(#), VDLE(#), 
2 VRES(#) 





ee fee oe) eee eee 
Sew Ni) ELEMENT FiLE Hz 
REWIND Me 
— LCOP OVER fhe ELEMENTS 
Ud 20 [E=1,NELT 
—---=- READ AN ELEMENT FROM FILE Me 


CALL RDELEM (MZ, KLUCE, VCORE, VPRNE, VPREE, KNE) 
(m-—---- SVALUATE INTERPOLATION FUNCTIONS IF REGUIRED 

TFC TPELEQ. ITPEL) GO TO 10 

iCOD=¢ 

CALL ELEMLE( VCORE, VPRNE, VPrec, VOLE, VKE, VFE) 
cVALUATE ELEMENT VECTGR 
1g 1uUD=7 

CALL ELEMUB( VCORE, VPRNE, VPREE, VOLE, VKE, VEE) 
Seema | Phi) CLEMENT VECTOR VFE 

TPR(M.GE.2) ARITECMP, 26000) Tel, (VFE(I), f=1, IDLE) 
evcOuecue*at(/’ VECTOR (FE) , EUEMENT:’, 15/410X, 10812. 5)) 
c=---—=——_ ASSeMate 
CALL ASSEL(0, 1, IDLE, NSYM, KLQCE, KLD, VAE, VEZ, VAS, VKGD, VXI, VSS) 
ITPEL=!TPE 
RETURN 
END 





Te 
oO 


ieoek 


SuBRGUTINe BLLINMK 


S 10 @RLL “Baaes 7 ine 
: ASSe“BLc AND SOLVE A LINEAR PROSLEM IN COR= 


IMPLICIT REAL#G(A-H, 0-2) 

CEARACTER#4 TBL 

COMMON /CODR/ NDIM, NNT, NDLN, NDLT, FNULL (3) 

CONMCA/ELEM/NULL (4), ME, MNULL (2) 

CO¥MON/ASS=/NSYM, NAG, NXE, NDLE 

COMMGN/RESO/NED, NRES, MRES 

COMMON/ES/M, MB, M9, M1, #2, M3, MDUMMY (7) 

COM"ON/LOC/LCORG, LDLNC, LNEG, LDIMP, LPRNG, LOREG, LLD, LLOCE, LCORE, LNE, 
_ DANE, LPREE, LOLE, LXE, LEE, LAGS, LGD, LXGI, LPG, LRES, LOLG, LDUMMY (4) 

COMMON VAC) 

DIMENSION THL(8) 


+++ THIS iS COMMENTED OUT BECAUSE OF THE #5 FORTRAN COMP- 
Ctt+ iLER BUG WHICH WILL NOT INITIALIZE $LARGE ARRAYS 

Cred THIS ARRAY iS NOW INITIALIZED sY A CALL TO INITBL WHICH 
Cit EXIS#S SOLELY 70 iNITIALIZe TABLE NAMES. 


c 
C DATA TEL/*KGS °,°KGD °,°KGI °,'FG °,°KE °,9FE * RES DLE '/ 
C 
c HEE IS THE CALL 70 SET ARGUND THE COMPILER BUG 
c 
CALL INITBL(TBL, 'LINM) 
4 


C+++ ALL THIS WAS SIMPLY TO GET AROUND THE MICROSOFT 
C++ . COMPILER BUG. 


IF(Mi.£0.0) MI=MR 
IF (M2. E0.0) MZ=ME 
IF (M3.E0.0) M3=MRES 
REOD(ML, 1000) IN 
1000 FCRMAT (115) 
I= (IN. NE.O) NRES=1 
WRITE(MP, 2000) M,NRES 
2000 SORMGT(//? ASSEMBLING AND LINEAR SOLUTION (M=’,12,9)9/1 1, 30¢7=")/ 
{ {5X,! INDEX FOR RESIDUAL COMPUTATION — (NRES)=", IS) 
IF(LXGS.£0.1) CALL ESPACE (NXG, 1, TEL(1), LKGS) 
IF(LKGD.EQ. 1) CALL ESPACE(NEQ, 1, TEL(2),LXGD) 
IF (NSYM, £0. 1. AND. LKGI.EQ.1) CALL ESPACE(NKS, 1, TBL(3),LXGE) 
IF(LFG.EG. i) CALL ESPACE (NEQ, :, TBL(4), LFG) 
IF (LKE.EQ. 1) CALL ESOACE (MME, 1, TBL (5), LKE) 
IF(LFE.£0.1) CALL ESPACE (NDLE, 1, TBL(6), LEE) 
1S (LRES.£D.1) CALL ESPACE (NDLT, !, TBL(7) ,LRES) 
IF(LOLE.EG. i) CALL ESPACE (NDLE, i, TBL(8), LDLE) 
CALL EX: FNM (VG(LLD)  VACLDIMD) , VACLLOCE) , VA(LCORE) , VACLPRNE) , 


dhs 72 





VA (COREE), VA (LN), VA(LKE) , VA(LFE) , VA(LKS3) , VACLKGD), 
2 Va (L4B1), VA(LFG) , VA (LCOS) , Va (LDLNC) , VA(LNEQ) , 
3 VA(LRES) , VA(LDLE) ) 

RETURN 

END 


VAGS, VAGD, VAI, VFG, VCGRG, KDLNC, XNEQ, VRES, VDLE) 
Oe a eee tree eee ee rear ez za zz===z 
C TO EXECUTE BLOCK "LINM 
c SoMp! © AND SOLVE A LINEAR PROBLEM IN CORE 
SSR SSS SSS SS SS PSS SS SS SSS Se SS SS SS SPSS SSS SSS SS SSS SSR SSS SSF SSS SS TSS SSS SSeS 
IMPLICIT REAL#A{A-H, 0-2) 
COMMON/ASSE/NSYM, NXG, NKE, NDLE 
COMMCN/RESO/NEQ, NRES, MRES 
COMMON/ES/M, MR, MP, MS, M2, M3, MDUMMY (7) 
OIMENSION MLD (4), VDIMP(#), XLOCE (4), VCORE (4), VPRNE (4) , VEREE CH), 
tL ¥NE Ge), VKE (4), VFE(#), VAES (#), VEGD(#), VAGT (#), VFG(#), VCORG(#), 
2 ADLNC (#) ,KNEQ(#) , VRES(#), VOLE (#) 
ODEN (M3, FILES! $$003, DAT! , STATUS=" NEW! , FORM=" UNFORMATTED! ) 
REWIND ¥3 
C 
([--——--- ASSEMBLE KG 


~—---- SAVE UNMODIFIED VECTOR FS (BY B.C.) ON FILE MZ 
WRITE(M3) (VFG(I), I=1, NEO) 
IF(M.GE.2) WRITECHP, 2000) (VFG(Z), I=1, NEQ) 
2000 FORMAT(/! GLOBAL LOAD VECTOR NON MODIFIED BY B.C. (FG)! 
1/(1%, 10842. 5)) | 
(------- ASSEMBLE KG, MODIFY FG FOR THE B.C. AND SAVE THEM 
CALL ASKG(KLD, VDIMP, KLOCE, VCORE, VPRNE, VPREE, XNE, VE, VFE, VKGS, 
{ VKGD, VABI, VEG, VDLE, VReS) 
KRITE(M3) (VFG(I), I=, NEQ) 
ARITE(M3) (VKGS(1), T=1,NKB), (VASD(T), T=1, NEO) 
IF (NSYM.EG. 1) WRITE(M3) (VKGI(), I=, NKG) 
(-—-—- RINT KS AND FG 
iF(MLT.2) 80 TO 20 
WAIT=ECMD, 2005) (VKGS(T) , [=1, NXG) 
2005 FORMAT(/? GLOBAL MATRIX (KG)'/? UPPER TRIANGLE? / 
1 (1X, 10212. 5)) 
WRITE(MP, 2010) (VKGD(T), 1=1, NEO) 
2010 FORMAT(® © DIAGONAL’ / (1X, 1012. 5)) 
IF (NSYM. EQ. 1) WRITE(MP, 2020) (VKGI(I), f=1, NKG) 
2020 FORMAT(® LOWER TRIGNGLE’ /(1X, 10612. 5)) 
WAITE(MP, 2030) (VEG(I), I=1,NEQ) 
2030 FORMAT(/! GLOBAL LOAD VECTOR MODIFIED BY THE B.C. (FG)? 
1 /(1X, 10812. 5)) 





aa Ue Ve 


SS 


2) = PALL SDL (VKGS, VK6D, VAST, VFG, KLD, NED, M2, 1, 1, NSYM, ENERS) 

iF (NSYM.NE. 1) WRITE(MP, 2035) ENERG 
2035 FORMOT(ISX, ENERGY — (ENERG) =", 1612. 5) 

IF(M.LT.2) GO TO 30 

WRITE(MP, 2040) (V4GS(I), 151, NKG) 
2040 FORMAT(/? TRIANGULARIZED MATRIX (KG)’/! UPPER TRIANGLE? / 

£ (1X, 10212. 5)) 

WRITE(MP, 2010) (VKGD(I), I=i, NEG) 

T= (NSYM. EQ. 1) WRITE (MP, 2020) (VKGI(T), T=1, NKB) 
[—----——- PIVOTS GF KG AND DETERMINANT 
3) CALL PRPVTS(VKGD) 
(-—-——- =VALUATE AND PRINT RESIDUAL VECTOR X.U - F 

TF (NRES. EG, $) CALL PRRESD(VKGS, VAGD, VKBI, VFG, KLD, VRES) 
(-—----- OBRINT THE SOLUTION 

WRITE (WB, 2050) 
2950 FORWAT(//? SOLUTION’ //) 

CALL PRSOL (KDLNC, VCORG, VDIMP, KNEQ, VF6) 


Ly 

(-—---- =VOLUATE AND PRINT GRADIENTS (STRESSES) 

c 
CALL ASGRAD(XLD, VDIMP, KLOCE, VCORE, VDRNE, VOREE, KNE, VE, VFE, VXGS, 
1 VKGD, VASE, VFG, VOLE, VRES) 

c 

[-——-— EVALUATE AND ORINT EQUILIBRIUM RESIDUAL VECTOR 

c 


[----—-— READ VECTOR FS AND CHANGE SIGN 
REWIND M3 
YEQD (M3) (VRES(1), I=1, NEG) 

DO 40 I=1,NEQ 

4 = VRES(1)=-VRES(13 

[----~-—- ASSEMBLE THE RESIDUALS 
CALL ASRESD(1, 1,KLD, VDIMP, XLOCE, VCORE, VPANE, VPREE, XNE, VKE, VEE, 

{ VKGS, VKGD, VKGI, VFG, VOLE, VRES, VRES(NEG+!) ) 

C-—---- RINT THE RESIDUALS 
WRITE (MP, 2060) 

2060 FORMAT(//) EQUILIBRIUM RESIDUALS AND AS ACTIONS //3 
CALL PRSGL(KDLNC, VCORG, VRES (NEG+1) , KNEG, VRES) 
RETURN 
END 


184 


us 


UBROITINE ASYS(4_D, VOINP, XLOCE, VCORE, VPRNE, VPREE, XNE, VRE, VFS, 
: VKGS, VKSD, VXG1, VFS, YDLE, VRES) 


mm es mm em mmm mm me em ms es es a es 
mee em ee ee ee ee ee ee en ee ec eee ee a 


C TQ SSSEMBLE GLOBAL MATRIX Ko (ELEMENT FUNCTICN 3) 
* TRANG AN;G ACCOUNT CP NON ZERG OReSCRiBED 2.0.7. 


IMPLICIT REALSA(A-+H, 0-2) 
POMMON/COND/NCLT, NOLZ, NCLNZ 
COMMEN/SLEM/NELT, NNEL, NTDE, NGRE, ME, NIDENT, NULL 
COMMON/ASSE/NSY™, ME ILL (3) 
DOMMON/ 9ESO/NED, NEILL (2) , 
COMMEN/ROOT/TEL, ITDE, ITPE, ZSRE, IDLE, ICE, IPRNE, IPREE, INEL, IDES, 296 
{  , ICCD, NULL(3) 
COMMGN/ES/M, MR, MD, M1, M2, MDUMMY (8) 
DIMENSION KLD(#) , VDIMP (+), KLOCE (#), VCORE (#) , VPRNE (#) , VPREE(#), 
{ANE (4), VE (4), VEE (4), VKGS (4) , VKGD (4), VABI (8), VF (#) , VDLE(#), 
2 VRES(#) , MEBCL) 
Dr tr rte oe een eee ee 
C-—----- REWIND ELEMENT FILE (M2) 
REWIND Me 
Cmem---- LOOP OVER THE ELEMENTS 
DO 30 [E=1,NELT 
(------- READ AN ELEMENT ON FILE Me 
CALL RDZLEMIMZ, KLOCE, VCORE, VERNE, VEREE, KNE) 
Ca-—---- SXIP COMPUTATION IF IDENTICAL ELEMENTS ENCOUNTERED 
[F (NIDENT. £0. 1.AND. 1E.87.1) GO 79 20 





eS ee ee ee 2 ee 8 ew es OS ee ee ee eee ee 





C EVALUATE INTEXSULATION FUNCTIONS IF REQUIRED 
IF (i TPEL EQ. ITP21) GO TO 10 
IcgD=2 
CALL ELEMLE (VCORE, VBANE, VPREE, VDLE, VKc, VF=) 
as FORM cLEMENT MATRIX 


10: 120D=3 

CALL ELEMLB (VCORE, VORNE, VPREE, VOLE, VHE, VEE) 
(------- RINT SLEMENT MATRIX 

IF(M,LT.2) GO TD 20 

IF(NSYM.EQ.0) IKESIDLE*(IDLE+1) /2 

iC (SYM, EQ. 1) IMESIDLE®IDLE 

WRITE(MP, 2000) IEL, (VKE(I), I=1, IKE) 
2000 FORMAT(/) MATRIX (XE) , ELEMENT:?, I5/(10X, 10212. 5)) 
C——---—- MODIFY ©G FOR NON ZERO PRESCRIBED D.0.F. 
*) IF (NCLNZ.NE.O) CALL MODFG (IDLE, NSYM, KLOCE, VDIMP, VE, VFS) 
([----—-- ASSEMBLE 

CALL ASSE!(1,0, IDLE, NSYM, KLOCE, XLD, VKE, VEE, VXGS, VKGD, VAGI, VEG) 
30. ITPE=1 TPE 

2ETURN 

END 
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SUBROUTINE ASGRAD (MLD, VOIMP, XOCE, VCORE, YORNE, VRTEE, SNE, VRE, VEE, 
1 VKBS, VXGD, VAI, VFS, VOLE, VSES) 


| Ee: A I 
= aes SS SS we we SS eee SS SS ee ee ee ee ee ee ee eee ee ee ee ee ee ee ee i 


: TQ EVALUATE AND PRINT GRADIENTS (STSESSES) AT ELEMENT G.8. 
[ (ZLEXENT FUNCTION 8) 


os ee eee a ew ee ee ee mm ce ee ee ee ee 
=— Pe a et oe ee ES SES See SSS ae ee ee ee SS eS eS See ee ee ee eS Se See ee ee ee = 


IMPLICIT REAL#8(A-H, G-Z) 
COMMON/ELEM/NELT, NNEL, NTDE, NORE, ME, NIDENT, MNULL 
COMMON/ASSE/NSY™, MFILLA (3) 
COMMON/RESO/ NEG, NETLLR (2) 
COMMON/RGDT/IEL, ITRE, ITPE1, IGRE, IDLE, ICE, IPRNE, IPREE, INEL, IDEG, IPG 
1, ICCD, NULL (3) 
COMMON/ES/M, 42, MP, M1, #2, MDUMMY (8) 
DIMENSION KLD(#), VDIMP (+), KLOCE (#), VCORE (+), VPRNE (#) , VPREE(#), 
{1 ANE(#), VAE (4), VFE (4), VAGS (4), VKGD (4), VKGI (4), VEG (4), VOLE CH), 
2 VRES(+) 
Ow a= ---------------- 
C—------ REWIND ELEMENTS FILE (Mz) 
REWIND Me 
(-~-~-—— LOOP OVER THE ELEMENTS 
DO 20 1€=1,NELT 


ee Se ee ee ee ee ee ee 











(---~--- READ THE ELEMENT 
CALL RDELEM (M2, XLOCE, VCORE, VPRNE, VPRSE, XNE) 
(~------ EVALUATE INTERPOLATION FUNCTION IF REQUIRED 
IF (ITPE. EQ. 1TPE1) GO TO 10 
ICODE2 


CALL ELEMLB (VCORE, VPRNE, VPREE, VDLE, VKE, VEE) 
C-- FIND ELEMENT 0.0.5. 
10 CALL DLELM(ALOCE, VFG, VDIMO, VOLE) 
C------- COMPUTE AND PRINT STRESSES OR GRADIENTS 
iCOD=8 
CALL ELEMLECVCORE, VPRNE, VPREE, VDLE, VE, VFE) 
20 © TTPEL=1TPE 
RETURN 
END 
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SUBROUTINE ASR=SD(IRESD, IREAC, XLD, VOIMP, ALOCE, VCORE, VEANE, VERSES, 
i XNE, VKE, VFE, VKGS, VXGD, VKGI, VFS, VOLE, VRES, VREAC) 
c TG ASSEMBLE INTERNAL RESIDUALS IN VRES (IF IRESD .EG. 1) 
C AND EXTERNAL REACTIONS IN VAERC (IF IREAC. SG. !) 
IMPLICIT RZAL¥8 (A-H, 0-2) 
COMMON/ELEM/NELT, NNEL, NTPE, NGRE, ME, NIDENT, MNULL 
COMMON/OSSE/NSY™, AFILLR (3) 
COMMON/RESC/NEG, NFILLR (2) 
COMMON/RGDT/IEL, ITPE, ITPEL, IGRE, IDLE, ICE, IPANE, IPRES, INEL, IDEG, 105 
, 1COD, NULL (3) 
COMMON/SS/M, MR, MP, ML, M2, MOUMMY (B) 
DIMENSION KLD(#), VDIMP(#), KLOCE (#) , VCORE (#), VPRNE(#), VPREE (+), 
1 KNE(#), VKE(#), VF (#), VKGS (#), VKGD (#), VKGI (#), VEG (*), VDLE(#), 
2 VRES(#), VREAC(#) 
Oe an a nn nw nn i 9 nn a no en 8 nn ee nn en nn ee 
C---—--- REWIND ELEMENT FILE (M2) 
REWIND 2 
C------- LOOP OVER THE ELEMENTS 
GO 60 If=1,NELT 
C------- CAD AN ELEMENT ON FILE Me 
CALL QDELEM(M2, KLOCE, VCORE, VPRNS, VPREE, KNE) 
C--—---- €VALUATE INTERPOLATION FUNCTICN IF REQUIRED 
IF(ITPELEG.ITPEL) GO TO 10 
ICGz=2 
CALL ELEMLB(VCORE, VPRNE, VPREE, VDLE, V4E, VFS) 
C-—----- FIND ELEMENT D.0.F. 
10 CALL DLELM(XLOCE, VFG, VDIMP, VDLE) 
C------- EVALUATE ELEMENT REACTIONS 
1C09=6 
CALL ZLEMLE (VCORE, VPRNE, VPREE, VDLE, VXE, VF) 
O------- PRINT ELEMENT REACTIONS 
IF(M.GE.2) #RITE(MP, 2060) TEL, (VFE(I), f=1, IDLE) 
2000 FORMAT(/? REACTIONS (FE) , ELEMENT:’, 15/(10X, 10622, 5)) 
IF (IRESD.NE. 1) GO TO 20 
C----—-- ASSEMBLE INTERNAL RESIDUALS 
CALL ASSEL(O, 1, IDLE, NSYM, KLOCE, KLD, VKE, VEE, V4S, YXGD, VKGI, VES) 
e =o JE(IREAC.NE.1) 60 TO 60 





E ASSEMBLE EXTERNAL REACTIONS 
C MODIFY TERMS IN KLOCE SUCH TKAT PRESCRIBED D.0.F. ARE THE ONLY 
G ASSEMBLED ONES 


DG 50 ID=1, IDLE 
IF (KLOCE(ID)) 30,50, 40 
30 KLOCE (ID) =-KLOCE (1D) 
G0 70 50 
40  KLOCE(ID)=0 
50 CONTINUE 
CALL ASSEL (0, :, IDLE, NSYM, KLCCE, KLD, VKE, VFE, VKGS, VXED, V4G2, VREAC) 
60  ITPEL=1TPE 
RETURN 
END 
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SUBROUTINE ASSEL(IXG, IFG, IDLE, NSYM, XLOCE, ALD, VAE, VEE, VKGS, 
{ VKSD, VKGI, VF) 


(essessraasssssscsssssscsasssssssSeeeeeseeeeees aSSaeee=—=s See ee 
C TQ ASSEMBLE AN ELEMENT MATRIX AND/OR VECTOR 

C (MATRIX SYMMETRICAL OR NOT) 

C INPUT 

E TAG lr IXG.E0.1 ASSEMBLE ELEMENT MATRIX Ke 

e IG TF TFG.EQ.1 ASSEMBLE ELEMENT VECTOR FE 

c LDwe ELEMENT NUMBER OF 0.0.r. 

E NSYM O=SYMMETRIC PROBLEM, i=UNSYMMETRIC PROBLEM 

c ALOCE 3 CicmenT LOCALIZATION VECTOR 

C 4LD CUMULATIVE COLUYN HEIGHTS OF KG 

C VAE SLEMENT MATRIX de (FULL OR UPPER TRiGNGLe BY 

C DESCENDING COLUMNS) 

u Vee CLEMENT VeCrOR Fe 

E OUTPUT 

e V4G5, VAGD, VAbi GLOBAL MATRIX (SKYLINES) 

C (SYMMETRIC GR NOT) 

: VEG GLOBAL LG&D VECTOR 

((sS352525 Sea a ee ee ee 


IMOLICIT R&AL#8 (AH, 0-7) 
DIMENSION KLOCE (#) , KLD(#) , VKE (#) , VEC) , VKGS(#) , VED (#), 
t VKGI(#), VFG (4) 


= 
1, eerie SS =—e Sap ey SS EO SEO SS SE SS eS eee ee Ee ae ee ee eee eee a ee ee ee 


C 
C-—---~ ASSEMBLE ELEMENT MATRIX 
EZ 
TF (TXG.NE. 1) 60 TO 100 
TEGO=TDLE 
{€Gi=t 


(------- FOR EACH COLUMN OF KE 
DO 30 JD=1, IDLE 
I= (NSYM. NE. 1) TEQO=JD 
JL=KLOCE (JD) 
TS (IL) 90, 90, 16 
10 I0=KLD(JL+1) 
IEQ=IEQi 
10=1 
C------- FOR EACH ROW OF KE 
DO 80 ID=1, IDLE 
IL=ALOCE (1D) 
IF(NSYM.EQ.1) 60 TO 30 
TF(ID-JD) 30,20, 20 
20 = - IGEID 
32 TF (IL) 80,80, 40 
40 TJ=dL-IL 
IF(IJ) 76,50,60 
C------- DIAGONAL TERMS OF KG 
50 VMGD (IL) =VKGD (IL) +VKE (EQ) 
GO TO 80 


188 





Bape eee (RLANGL= Jea"S CF x5 
60 i=l0-[J 

VAGS (1) =VXG5 (1) +48 (TER) 

SU 19 80 
eee ewe TRIANGLE TERMS OF KG 
7Q so TE (NSYM.NELi) GO TO 80 


PSALO(iLeL) +l 
VAGi (TS) =VKGE (1) +VKE (LEQ) 
89 = JEB=tle+iG 
90s TEGi=CEGI+I ERO 
c 
a ASSEMBLE ELEMENT LOAD VECTOR 
c 


106 EFCIFG.NE.4) SD TO 220 
DO 120 ID=i,1DLE 
[L=XLDCZ (1D) 
IFCIL) 126, 120, 110 
10 VFSCIL)=VEG(IL)+VFE (ID) 
120 CONTINUE 
{30 RETURN 
END 


anS 9 


SUBROUTINE MODFG(IDLE, NSYM. KLOCE, VDIM9, Y=, VFG) 


Cesessssses Sees ssSe2esSsSSS5 Sa a a a ee ee ee a eee 
C TO MODIFY VECTOR FG 70 TAXE INTO ACCOUNT GP PRESCRISSD NON Z=HO 

C D.O.F. &0R A GIVEN ELEMENT 

e INPUT 

C IDLE  #ELEMWENT NUMBER OF DIU.-. 

C NSYM Q=SYMMETRIC PROBLEM, 1=NGN SYMMETRIC PROBLEM 

C KLGCE CLEMENT LOCALIZATION VECTOR 

S VDIMP  VALUSS Gf PRESCRIBED D.G.F. 

e Vidz CLEMENT MATRIX (FULL OR UPPER TRIANGLE 

2 BY DESCENDING COLUMNS) 

. CLT PUT 

: VF6 GLOBAL LORD VECTOR 

( SSSssaosseeen aaa a = ee ee eee = = = = = = == = === === = 


IMPLICIT REAL#A(A-H, 0-2) | 
DIMENSION XLOCE (#), VDIMD(#), VRE (#), VPG (4) 
DATA ZERO/0. D0/ 

on te ee 9 5 ne 2 os 9 no no 5 en 5 
TEQU=IDLE 
1EQi=1 

(------- FOR SACH ROW OF ELEMENT MATRIX 
DO 50 JD=1, IDLE 
IF(NSYM. NE. 1) IEQO=JD 
IEG=1e0! 
TLSMLOCE (JD) 


mr 4 
Tye? 


t= {JL) 10,50, 50 
{0 JeedL 
DIMPEVDIMP (JL) 
IF{DIMP.EQ. ZERO) GO TO 50 
T-—-—-- FOR EACH COLUMN OF ELEMENT MATRIX 
DO 40 ID=1, IDE 
TL =KLOCE (ID) 
TF(NSYM.EQ. 1) GO TO 30 
IF(ID-JD) 30,20, 20 
“0 10510 
30. TFAIL.GT.0) VFG(IL)=VFG(IL) -VKE (IEG) #DIME 
40 © TERE TEG+IO 
50 © TEDI=1EQ1+IEG0 
RETURN 
END 


gE 





SUBROUTINE PROVTS(VKGD) 


— mm rr mmm a ee ce ee ey me mm eee es es 
— ee we ee ee ee ee ee ee eee ee ee eee ee we ee es ee ee ee i ee ee ee a 


C TO EVALUATE AND TO PRINT THE PIVOTS AND THE DETERMINANT OF MATAIX XG 
IMPLICIT REAL#8(A-H, 0-2) 
COMMON/ RESO/NED, NEILLR (2) 
COMMON/ES/M, M2, M2, MOUMMY (10) 
DIMENSION VAGD (4) 
SATA UN/1.DG/,GR0S/1.D38/ 
>B5(X) =D589 (X} 
C- i a a cae ee en ee cer es eee Sas rece aw wes nw Se me oon ae Oe ene oe ee ee 
‘2GR05 
XZ=5ROS 
DET=UN 
"DET=0 
Bees PAINT DIVOTS OF MATAIX XG 
IF (M GE.2)_ WRITE (NP, 2000) (VKGD (7)  T=1, NEO) 
2000 FORMOT(/? SLOBRL MATRIX PIVOTS’ / (1X, 10212. 5)) 
D0 50 1=1,NE0 
[------- ABSOLUTE VALUE GF MINIMUM PIVOT 
X=RBS(VKGD (1) ) 
IF (X67. X1) 80 70 10 
1=X 
I=] 
(-——--- ALGEBRAIC VALUE OF MINIMUM DIVOT 
X=VKSD (2) 
‘0 IF(X,G7.X2) GE Te 20 
X=X 
125] 
——— DETERMINANT (BOUNDS : 10 EXPGNENT + OR - £0) 
20 DET=DET#VKBD (1) 
30 - SETLSABS (DET) 
IF(DET1.LT. 1.D10) SO 79 40 
DET=DET#. D-10 
IDET=IDET+10 
4)  IE(DET{.ST.1,D+10) 60 7G 50 
DET=DET#!. DIG 
IDETSIDET-16 
GO 7c 30 
50 CONTINUE 
C-------  GUTPLT 
WAITE(MP, 2010) Xi, 11, X2, 12, DET, IDET 
2010 FORMAT (/iSX, ABSOLUTE VALUE OF MINIMUM PIVOT =9,£12.5,? EQUATIEN 


Cs 


Vie, (29%, "ALGEBRAIC VALLES) £12, Oo,’ SQUATION:?, 
Soe cee / 65K, "DETER INONT =", El2.5,' * 10 # : 
Sees) ) 

RETURN 

END 


LOak 


SUBQGUTINE PRRESD(VKGS, Vo, VAGT, VEG, ALD, VES) 


e 7G COMPUTE AND PRINT THE XeSivUAL VECTOR KU - F 


ew ee ee ee ee ee es cr cs cr cs ee ee ee ee ee ee ee ee ee ee oe 
eT erm Se em ee ee ee ee ee ee ee ee ee ee ee oe ee ee 


IMPLICIT REALS (A-H, O-2) 

COMMON/ASSE/NSY™, NXG, MILLA (2) 
COMMON/RESO/NED, NRES, MRES 
COMMON/ES/™, MR, MP, M1, M2, M3, MDUMMY (7) 

DIMENSION VA3S(), VAGD (#), VAST (#), VEG (4), KLD( +), VRES (4) 
SATA ZERD/G. 20/ 


ARS {X) =DABS(X) 
REWIND Mo 

b= S54-9 SKIP VECTOR FG NON MODIFIED BY B.C. ON FILE i 
READ (MS) (VRES(T), I=1, NEG) 

Caan READ VECTOR FG MODIFIED BY B.C. AND MATRIX KG 


READ (M3) (VRES(I), I=1,NEQ) 
READ (M3) (VKGS(I), T=1,NKB), (VKGD(T), I=1, NEG) 
IF (NSYM.E0. 1) READ(M3) (VKGI(I), I=1,NKG) 
[-—--~-- EVALUATE THE RESIDUAL VECTOR 
DO 10 I=1,NEC 
{0 VRES(I)=-VRES(1) 
CALL MULKU(VXES, VKGD, VMGI, KLD, VEG, NEG, NSYM, VRES) 
DO £0 I=1, NEO 
“)  YRES( 1) =-VRES(1) 
X1=ZERO 
DO 30 I=1,NEG 
X=PES (VRES(I)) 
[5 (X1,6E,X) GD 70 30 
x1=X 
115i 
30 CONTINUE 
IF(M,GE.2) WRITE(MP, 2000) (VRES(I), I=1,NEQ) 
2000 FORMAT(/? RESIDUALS VECTOR! /(1X, 10E12.5)) 
WRITE(MP, 2010) X1, I 
2010 FORMAT(/? MAX, RESIDUAL VALUE=',£12.5,’ EQUATION’, 15) 
RETURN 
END 


Po2 


SUSROUTINE PRSOL(KDLNC, VCORG, VDIM®, KNEG, V=6) 
C TO PRINT THE SOLUTION 

IMPLICIT REAL#S(A-H, 0-7) 

CHARACTER#4 RF, AL, FY 

COMMON/CODR/NDIM, NNT, NNULL (2) , FNULL (3) 

COMMON/ES/™, MR, MD, MDUMMY (10) 

COMMON/TRVL/V (10) FX (10), RDUMMY (506) , NULL 

DIMENSION VDIMO (4), KDLNC (+), VCORG (#) , KNEO (#) , VEC) 

DATA RE/) # /,RL/? = -1/, ZERO/0.00/ 





X2=7ERO 
XZ=7ER0 
WRITE (MP, 2600) 
2000 FORMAT(/? NODES’ 4X, 'X?, L1X,¥?, 11X,°2?, $0%, DEGREES OF FREEDOM Go 
{ = PRESCRIBED)? /) 
1250 
DO 50 IN=1, NNT 
Li=]2+1 
i2=IZ+NDIM 
IDL=KDLNC (IN) +1 
IGZSKDLNC (INCL) 
ID=1D2-IDi+4 
12 (2D2.LT.1D1) GO TO 50 
X1=VCORG (11) 
IF(NDIM, GE. 2) X2=VCORGUTI+1) 
TF(NDIM, BE. 3) X3=VCORG (1142) 
j=1D! 
DO 40 1=t,ID 
JJ=KNEQ (I) 
IF(3J) 10,20, 30 
{0 V(L)=VDIMP(-J) 
FX (1) =RF 
SD 70 40 
20 © V(I)=ZERO 
EX (I) SRF 
60 70 40 
30 V(T)=VFB(JJ) 
FX (1) =RL 
ko js J+4 
WRITE (MP, 2010) IN, X41, X2, X3, (VII) SXUIT), 1251, 1D) 
2010 FORMAT(1X, 15, 3612. 5, 5X, S{E12, 5, AS) /47X, S(EL2. 5, A4) ) 
50 CONTINUE 
RETURN 
END 


13 


SUBROUTINE DLeLM(XLOCE, VDL, vDiMe, VOLS) 


{ S2SsSSSss——- 62 ]2222-=2 ea nae SS SS Se Sew SSS SS SS Sa wee ee SS Swen ew ewe one 
tc 1G GENERATE 2LEmENT P.O. 
Oe merer sss ert rr rr trata Str z zzz Zzz== = SSS SSS SSS SSS 


IMPLICIT REAL#B(A-H, 0-2) 
COMMON/RGDT/TEL, INUL(3), IDLE, MULL (10) 
COMMON/ES/™, ¥R, MP, MDUMMY (10) 
DIMENSION 4LOCE (4), VDLG(+), VDIMP(#), VDLE(#) 
DATA ZERG/0.DO/ 
Boe a ne ee ee ee a + ee oe nee ene + He a ee a ee ae 
DO 40 ID=1, IDLE 
TL =4LOCE (1D) 
"FCIL) 10,20, 30 
{0 VDLE(ID) =VD2MP(-1) 
GC 70 40 
2) VDLE(ID)=ZERO 
G0 TC 40 
VDLE (1D) =VDLG IL) 
CONTINUE 
TF(M.GE.2) WRITEAMP, 2060) IEL, (VDLE(ID), ID=1, IDL2) 
FORMAT (? DEGREES OF FREEDOM CF ELEMENT ', I5/(iX, 0612.5) 
RETURN 
END 


oS 


ro 
oS 
S 


194 


SUBROUTINE MULXU CVXGS, V4GD, YAGI, HUD, VFS, NEG, NSYM, V2E8) 


C SUSPRUGRAM : 

: TG ADD VECTOR RES 70 THE PRODUCT GF MATRIX KG AND THE VECTOR FG 
C INPUT 

: VXGS, V450,VX5I MATRIX XG STORED BY SKYLINE 

e (SYM. OR NCN SYM, ) 

e ALD ARRAY OF ADDRESS GF COLUMN TOP TERMS IN KG 
C VF& VECTOR FG 
C NEQ ORDER OF VECTORS FG AND RES 
e NSY™ .cQ.1 IF NON SYMMETRIC PROBLEM 
e VaeS VECTOR RES 
e GUT PUT 
C VRrS VECTOR RES 


a a > ee ee ee ee se ee ee ee ee Se ee ee ee eS a SS SS SS IS SS 
=— oe oe ee ee ee ee ee a a 2 ee ee a ae SS ee a ee ee ee ee ae SS SS Sa ee 


IMPLICIT REAL#8(A-H, 0-2) 
DIMENSION VES (+), VAGD(#), VKGI Ce), RUD (2) , VFB (4) , VRES(#) 











C--+-----—- ranean 


C--- FOR EACH COLUMN OF MATRIX x6 
DO 20 IK=1,NEG 
JHK=KLD (IK) 
JHKLSKLD (2K+4) 
LUX=JHK{-JHK 
(---—--- DIAGONAL TERMS 
C=VXGD (14) #VFG (IK) 
IF (LHK.LE.O) GO TO 20 
1Q=IK-LHK 
(------- RoW TERKS 
IF (NSYM, NE. 1) C=C#SCAL(VA8S (JHK) , VEG (0), LHX) 
IF (NSYM. EQ. 1) C=C+SCAL (VKGI (JHK), VEG(IG) CHK) 
Qe----—— COLUMN TERMS 





=| 
1J=10, 11 
VRES (IJ) =VRES (IJ) +VKGS (J) #VFG (IK) 
{0 J=J+l 
ct VRES (IK) =VRES (TK) +C 
RETURN 
=ND 


oS 


SUBROUTINE GAUSS (IPGKED, NDIM, VKPG, VCPG, 12) 


a 
. TO FORM ARRAYS OF COORDINATES AND WEIGHTS AT GAUSS POINTS 
c (t,2 AND 3 DIMENSIONS) (2,2,3 OR 4 G.P. PER DIMENSION) 
C INPUT | 
C TPGKED NUMBER Gr POINTS IN ASi,ETA, ZETA DIRECTIONS 
t NDIM NUMBER OF DIMENSIONS (1,¢ OR 3) 
e GUTPUT 
C VKPG = COORDINATES OF GAUSS POINTS 
e VCPG = WEIGHTS AT GAUSS POINTS 
: TPG TOTAL NUMBER Ge GAUSS POINTS 
 sSSeSsaSsesssaeeo a saeee aa Seen a nee eee ee aa ee oie a sao ae eee eee ee 
iMPLICIT REAL #8 (A-H, 0-2) 
DiMENSTON IPGKED(#) , VAPG(#) , VCPG (+), G(10), P20), INDIC (4) 
Get THIS 1S COMMENTED CUT BECAUSE OF THE MS FORTRAN COMP- 
ie TLER BUG WHICH WILL NOT INITIALIZE $LARGE ARRAYS. 
Or++ THESE ARRAYS ARE NOW INITIALIZED BY A CALL TO A DUMMY 
Cit SUBROUTINE INITGA WHICH EXISTS SOLELY TQ INITIALIZE 
o+++ TRESE THREE ARRAYS 
C 
C DATA INDIC/1,2, 4, 7/ 
C DATA 6/0, OD0, ~.077350269189626D0, .577350¢69189626D0, 
fie ~, 77459666924! 48300, 0. ODO, . 774596669241 48300, 
oe ~, 861136511994050D0, -. 33998104 3584660D0, 
Cy es » 839981045584860D0, . 661146311594050D0/ 
C DATA 9/2. 0B0, 1. 0D0, 1. 6Dd, 
C | 0). IOSoISSI000 00600, 0. 8688888488888 9D0, 0. SSSSSSSSIS955 0600, 
Cae © $47854845137450D0, . 652145154862550D0, 
Jane »000145154862950D0, . 3478548451 3745000/ 
Ee 
E MERE IS THE CALL 70 GET AROUND THE MICROSOFT 
s COMPILER BUG 
E 
CALL INITGACINDIC, 6, 6) 
E 
Faas WL GF THIS HAS BEEN TO GET AROUND THE MICROSOFT 
T+t+ COMPILER BUG 
E 
mee ne en en eo on ne es 
TT=]PGHED (1) 
IMIN=INDIC (11) 
TMAX=IMIN+II-1 
IF (NDIM-2) 10,20, 30 
C——--—-_ 1 DIMENSION 
10, TAG= 
DO 15 I=IMIN, IMAX 
TPG={PG+1 


VK PG (TPG) =6(T) 
13 = VCPG (TPG) =P(T) 


Loi 


2s 


RETURN 


—— SL DIMENSIONS 


T1S1PGRED (2) 
JMINS INDICT) 
SMAK=IMINGLI-! 
1PG=0 

Ls! 

03 25 I=IMIN, IMAX 
DO 25 J=JMIN, JMAX 
IPG=IPG+! 

VKPG(L) =G(1) 
VAPGIL+1)=G(J) 
L=L42 

VOPG (IPG) =P(1) #P (J) 
RETURN 


Bo Sars DO PNENSTONS 


30 


LI=IPGKED (2) 

JMIN=INDIC (IT) 

JMAX=JMIN+II-1 
[=i PGXED (3) 

KMIN=INDIC(IY) 

“AX=KMINGTI-“1 

i PG=0 

i=) 

DJ 35 I[=IMIN, IMAX 

CO 33 J=JMIN, JMAX 

DO 35 K=KMIN, KMAX 

IPG=!P6+1 

VK PG (L)=6(1) 

VKPG(L+1)=6(J) 

VK 9G (L+2) =6 (XK) 

L=Lt3 

VPS (IPG) =P (1) #P (J) #P (K) 

RETURN 

END 


Po 


SEBROUTINE ONINV(VAST, KEK, VP, Ai, VEN) 


C(esssasssassascsssasssaseasas=sSe—— 6 ee ee ee ee a ee 
i EVaLUATC THE PN-INVERSE MATRIX weila 
: CONTAINS ThE COEFFICIENTS GF FUNCTIONS N 
é INPUT VASI, KEXP GNEL, LULE, i fre, 4, *0 
c WORKSPACE = =—s-s VP, K1 
i GUTPUT yn 
ee Se ae oe ae ae a ae oe ae a a ae ae ae oe a ae on ae ae a ae ae ae a a a 
IMPLICIT RoAL#B (A-h, 3-2) 
COMMON /COCR/NDIM, NNULL (3), FNULL (3) 
COMMON/RGODT/IEL, ITPE, fT PES, FORE, IDLE, (CE, ZPRNE, IPREE, INEL, IDEG, IPG 
{ ,MuL(4) 
COMMON /E5/¢, MR, MP, MDUMMY (10) 
DIMENSION VKSI(#) KEXP (#), VE (#), XL (%), VPN (#)  KDER (3) 
DATA 2230/0. DC/ 
C 
eit THIS 1S TO GET ARGUAD THE WICROSOF? COMPILER BUG 


C+++ wich WiLL NOT INITIALIZE SLAREGE ARRAYS 
C DATA KDER/ 3#0/ 


C 
ADER(i} = 0 
KDER(2} = 0 
4Dexr(3} = 9 


cree Aii THIS HAS BeeN 72 GET AROUND THE MICROSOFT 
Cet COMPILER BUG 


Dear a en a 8 nn a ee 
Cc 
eee FORM PN MATRIX (FOR ANY LASRANGE TYPE ELEMENT) 
E 
. 
10=! 
It=1 
BO 20 IN=t, [NEL 
CALL BASEP(VKSI (11), KEXP, KDER, VP) 
12=10 
DO 10 IJ=t, INEL 
VPN (12) “VP (TJ) 
{9 IZSID+INEL 
10=10+1 
20 [L=T14NDIM 
Ceseeeee END OF PN FORMATION 
E 


([------- RINT THE PN MATRIX 
IF(M.LT.4) GO TO 40 
WRITE (MP, 2000) 

2000 FORMAT(/! PN MATRIX’/} 
ID=(INEL-1) #INEL 
D0 30 10=!, INEL 


[LsIO+ID 
30 WRITE(MP, 2010) (VPN(IJ), 1J=10, F1, INEL) 
2010 FORMAT (IX, 10613. 5/(14X, 9£13. 5)) 
T-——— INVERSE THE PN MATRIX 
40 CALL INVERS(VPN, INEL, INEL, Ki, DET) 
IF (DET.NE. 2ZER0) 60 TO 50 
WRITE(MP, 2020) ITPE 
22) FORMAT(? ### ERROR, PN SINGULAR, ELEMENT TYPE:?, 13) 


STOP 
(-——— PRINT THE PN-INVERSE MATRIX 
50  IF(M.LT.4) GO TO 70 

WRITE (MD, 2030) 

2030 FORMAT(/? PN-INVERSE MATRIX’/) 

DO 60 10=1, INEL 

1i=10+4ID 


50 = WRITE(MD, 2010) (VPN(IJ), IJ=10, 11, INEL) 
70 ~~ - RETURN 
END 


a9 


$LARGE 
$DEBUG 
$NOFLOATCALLS 
$0066 
SUBROUTINE NI (VKSI, KEXP, KDER, VP, VPN, VNI) 


C 70 EVALUATE FUNCTIONS N OR THEIR DERIVATIVES 
C AT POINT VKSI ON THE REFERENCE ELEMENT 

Cc INPUT —-VKSI, KEXP, DER, VP, VPN, IDLE, M, MP 

c 


QUTPUT NI 


IMPLICIT REAL#G(A-H, 0-2) 
COMMON/CODR/NDIM, NNULL (3), FNULL (3) 

COMMON/RGDT/IEL, ITPE, ITPEL, IGRE, IDLE, ICE, IPRNE, IPREE, INEL, IDEG, IPG 
1, NULL (4) 

COMMON/ES/M, MR, MP, MDUMMY (10) 

DIMENSION VKSI(#) , KEXP (#) ,KDER(#) , VP (#) , VPN (4) , VNI (#) 

DATA ZERO/0. DO/ 





(er a eee 
C—------ COMPUTE THE POLYNOMIAL BASIS AF POINT VKSI 
CALL BASEP(VKST, XEXP, DER, VP) 
(-—------ P#(PN-INVERSE) PRODUCT 
10=1 
DO 20 IJ=i, INEL 
11=10 
C=ZERO 
09 10 Tl=i, INEL 
c=C+VP (11) #VPN(T1) 
10 Ty=[1+i 


WNT (IJ) =C 
Q  I0S10+INEL 
-—---- DRINT FUNCTIONS N 
IF (M.LT.3) GO TO 30 
WRITE(MP, 2000) (KDER(I) , I=1, NDIM) 
2000 FORMAT(/? DERIVATIVE OF N WITH ORDER °,312) 
WRITE (MP, 2010) (VKSI(1), I=t, NDIM) 
2010 FORMAT (14X, AT POINT °, 3613.5) 
WRITE (MP, 2020) (VNI(I), I=1, INEL) 
2020 FORMAT (/(1X, 10613.5)) 
30. RETURN 
END 


To 


ud 


200 


SUBROUTINE BASED (VKSI, KEXO, KDER, VP) 


f 70 EVALUATE THE POLYNOMIAL BASIS AND ITS DERIVATIVES AT POINT VXSI 
c INPUT -VKSI, KEXP, XDER, IDLE, IDEG, NDIM,M, MP 
c guTPUT vp 


IMPLICIT REAL#8<A-H, 0-2) 
COMMON /CCGR/NDIM, NNULL (3), FULL (3) 
COMMON/RGDT/IEL, ITPE, ITPEL, IGRE, IDLE, ICE, IPRNE, IPREE, INEL, IDEG, IPG 
1 NULLA) 
COMMON/ES/M, IMR, MP, MDUMMY (10) 
DIMENSION VKSI (#) , KEXP (#) , KDER (#), VP (#) 
DIMENSION PUISS(3, 10) 
DATA ZERG/0.D0/,UN/1. D0/ 
Oa eee mene fe ee ee eee eee 
os FORM SUCCESSIVE POWERS OF KSI,ETA, DZETA 
CO 10 I=1,NDIM 
PUISS (1, 2) =UN 
DO 10 ID=1, 1DE6 
10 = PUISS (1, 1D+1)=PUISS(T, ID) #VKSI (7) 
U-——-——_ DERIVATIVES OF ORDER KDER WITH RESPECT TO KSi,ETA,DZETA 
DO S50 IDL=1, INEL 
Ci=UN 
TQ=(IDL-1) #NDIM 
DO 30 [=1,NDIM 
IDR=XDER (1) 
iQ=10+t 
iXP=ASXP (10) +1 
=IXP-IDR 
iF iv.LE.0) GO TO 40 
IF (IDR.LE.O) 6G 70 30 
D3 20 ID=1, IDR 
2 Cl=Ci#¢(IXP-ID) 





Pro 
a, 


3). UL=U1#9UTSS (1, J) 
GO 12 30 
4)  Ci=ZERO 
30 = VB (IDL) =C1 
U------- PRINT POLYNOMIAL BASIS 


IF(M.LT.4) 60 TO 60 
WRITE(MP, 2000) (XDER(I), T=1,NDIM) 
2000 FORMAT(/’ POLYNOMIAL BASIS, DERIVATIVE OF ORDER °, 312) 
WRITE(MP, 2010) (VKSI(T), 1=1, NDIM) 
CO10 FORMAT (19X,*AT POINT °, 3£13.5) 
WRITE(MP, O20) (VP(I), T=1, INEL) 
e020 FORMAT(/ (1X, 10E12.5) ) 
bf) RETURN 
END 
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SUBROUTINE INVERS(VP, N, IVP, K, DET) 


TO INVERT A NON-SYMMETRIC MATRIX WITH SEARCH GF A 
NON-ZERO PIVOT IN A COLUMN 
INPUT 
VP MATRIX TQ BE INVERTED 
N ORDER OF THE MATRIX 
IVP DIMENSION GF THE MATRIX IN THE CALLING PROGRAM 
K INTEGER WORKING ARRAY WITH LENGTH N 


mwIongodna ~o 


INVERSE MATRIX 
DET DETERMINANT 


1 ae eens ans a ee ee ee ee ee ea ee ee ee ee es ee ee ee ee ee ee ee es 
SS SS ee eae ee ee ee ee ee ee ee ee ee 


IMPLICIT REAL®8(A-H, 0-2) 
DIMENSION VP (IVP, IVP) , X(N) 
DATA ZERO/0.D0/,UN/1.D0/,EPS/1.D-13/ 
BS (X) =DABS (X) 
ot te ee te 5 pe me pe a re ee Ss a ee ne eee eee 
DET=UN 
D0 5 I=1,N 
5 KDI 
(------- START INVERSION 
DO 90 II=1,N 
(---—--- SEARCH FOR NON-ZERO PIVOT IN COLUMN 11 
DO 10 I=II,N 
PIV=VP (I, II) 
IF(ABS(PIV).GT.EPS) GO TO 20 
{0 CONTINUE 
DET=ZERO 
RETURN 
(-—----- EXCHANGE LINES II AND I 
20 DET=DET#PIV 
IF(I.EQ.11) 60 TO 40 
TL=K (II) 
KID) =K (1) 
K(1)=I! 
DO 30 J=i,N 
C=VP(T, J) 
V9 (I, J)=VP(IT, J) 
30 VP(II, J)=C 
DET=-DET 
NORMALIZE PIVOT LINE 
4) = C=UN/PIV 
VP{II, 11) =UN 
DO 50 J=1,N 
50: VP(II, J)=VP(II, J)#C 
(------- ELIMINATION 
DO 70 I=1,N 
IF(I.EQ.11) 60 TO 70 
=VP(I, IT) 


C2? Cige. C2 
< 
TW 
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VP {I, 11) =ZERO 


DO 60 J=1,N 
60 - VOCT, J)=VP(T, J)-CaVP(II, J) 
70 CONTINUE 
ao CONTINUE 
(-----— REORDER THE COLUMNS OF INVERSE MATRIX 
DO 120 J=1,N 
(-—---—- FIND J1 SUCH THAT K(Ji)=J 
DO 90 Ji=J,N 
JFK) 
IF (JJ.€0.J) 60 70 100 
90 CONTINUE 
{00 IF (J.EQ.J1) GO TO 120 
C—---— EXCHANGE COLUMNS J AND Jt 
KJ) =K (3) 
DO 110 I=1,N 
C=VP(I, J) 


VP(I, J) =VP(I, JI) 
110 VOCI, JL) =¢ 
120 CONTINUE 

RETURN 

END 
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SUBROUTINE JACOB (VNI, VCORE, NDIM, INSL, VJ,VJi, DETJ) 


(swesassassssssassasessassaeese=eaee ee eee] — + eee 
C TO EVALUATE THE JACOBIAN MATRIX, iTS DETERMINANT AND 
C ITS INVERSE (1,2,3 DIMENSIONS) 
c INPUT 
¢ VNI DERIVATIVES OF INTERPOLATION FUNCTION UW. X. T. 
c KSI, ETA, DZETA 
c VCORE ELEMENT NODAL COORDINATES 
Cc NDIM NUMBER OF DIMENSIONS 
c INEL NUMBER GF NODES PER ELEMENT 
E OUTPUT 
E VJ JACOBIAN MATRIX 
Cc VJi «INVERSE OF JACOBIAN MATRIX 
c DET] DETERMINANT OF JACDBIAN MATRIX 
=== ee 
IMPLICIT REAL#B(A-H, O-Z) 
DIMENSION VNICINEL, #), VCORE(NDIM, #), VJ (#), VIL (#) 
DATA ZERO/0. D0/, UN/1.DO/ 
(reer pe re ee 
E FORM THE JACOBIAN MATRIX 





J=1 
DO 20 JJ=1,NDIM 
DO 20 I1=1,NDIM 
C=7ER0 
DO 10 1J=1, INEL 
10 CACHVNI (IJ, IT) #VCORE(JJ, 1) 


VIC 
20 JsJ+t 
C-—-—- 1, 2, OR 3 DIMENSIONAL INVERSION 


G0 TO (40,50, 60), NDIM 
4) = DETJ=VJ(1) 
IF (DETJ.EQ. ZERO) RETURN 
VJ31(1) =UN/DETI 
RETURN 
50 DETI=VI(1) #VJ (4) -V2) #V (3) 
IF (DETJ. EO, ZERO) RETURN 
VIL CL) SVI(4) /DETI 
VI (2)=-VJ (2) /DETI 
VJ1(3)=-VJ(3) /DETJ 
V1 (4) =V0 (1) /DETI 
RETURN 
60 DETJ=VJ(1)#(VJ(5) 4V (9) -VJ (8) #VJ (6) ) 
L  #V 904) (VIB) #V5 (3) -VJ (2) #0 (9) ) 
2 4VJ(7)#(VI(2) (6) VJ (5) 4V(3)) 
IF (DETJ.E0. ZERO) RETURN 
V1 (1) =(V 95) #05 (9) VJ (6) 4V0 (8) ) DET 
V1 (2)=(VI(3) #VJ (B) VJ (2) #V5 (9) ) /DETI 
V1 (3) =(VJ(2) 4VJ (6) -VJ(3) #V5 (5) ) DET 
V4 (4) =(VIU7) VJ (6) -VJ(4) €V5 (9) ) DET 
V1 (5) =(VJ (1) #0 (9) -VJ(7) 4V5(3) ) /DETI 
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VFL (6) =(VI(4) V0 (3) -VI(5) #V0 (1) ) /DETS 
VEL(TI= (VS (4) VS (8) -V (7) #V0 (5) ) /DETS 
VIL (BY=(VI (2) VI (7) VI (8) VI (1) ) /DETS 
VoL (S)=(VS (1) VI (5) -V (4) eV (2) ) /DETS 
RETURN 

END 


SUBROUTINE DNIDX(VNI, VJ, NDIM, INEL, VNIX) 
(ssscsscsnsrsssessescsrscssssssesesscsessssssnessssssssssssssss2sss=ss== 
C COMPUTE THE DERIVATIVES OF INTERPOLATION FUNCTIONS WITH 
C _- RESPECT TO X,Y,Z 
C (1,2 OR 3 DIMENSIONS) 

c INPUT 

: VNI DERIVATIVES OF INTERPOLATION FUNCTIONS WITH RESPECT 
c TO KSI,ETA,DZETA 

E VJ1 INVERSE OF THE JACOBIAN 

E NDIM | NUMBER OF DIMENSIONS (1,2 OR 3) 

c INEL NUMBER OF INTERPOLATION FUNCTIONS (OR NODES) 

c 

c 


VNIX X,Y, Z DERIVATIVES OF INTERPOLATION FUNCTIONS 


IMPLICIT REAL#8(A-H, 0-2) 
DIMENSION VNI(INEL, #),VJ1 (NDIM, #), VNIX (INEL, #) 
DATA ZERO/0. DO/ 


DO 20 I=1,NDIM 

DO 20 J=t, INEL 

C=ZERO 

DO 10 IJ=1,NDIM 
10 CaC#VIL (I, I) #VNI(S, LD) 
20 WNIX(J, 1)=C 

RETURN 

END 
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SUBROUTINE SOL (VKGS, VKGD, VKGI, VFG, KLD, NEQ, MP, IFAC, ISOL, NSYM, ENERG) 


— ee eS a Se ee ee a ee ce ee ee ee ee ce 
22 2S SSS Se SS SS SS SS SS SS SF STI SS LS SS SS LS SS SS SS LS ee a ie es ee a a ee a ee ee oe eee ee ee ee eee 











C TO SOLVE A LINEAR SYSTEM (SYMMETRICAL OR NOT). 
C THE MATRIX IS STORED IN CORE BY SKYLINES IN ARRAYS 
C  —-VKGS, VKGD, VKEI 
Cc INPUT 
cC VAS, VKGD,VKGI = SYSTEM MATRIX : UPPER, DIAGONAL AND 
C LOWER PARTS 
c VF6 SECOND MEMBER 
c KLD ADDRESSES OF COLUMN TOP TERMS 
c NEQ NUMBER OF EQUATIONS 
C MP OUTPUT DEVICE NUMBER 
P IFAC IF IFAC.EQ.1 TRIANGULARIZE THE 
c MATRIX 
C ISOL IF ISOL.EQ.1 COMPUTE THE SOLUTION FROM 
Cc TRIANGULARIZED MATRIX 
c NSYM INDEX FOR NONSYMMETRIC PROBLEM 
c OUTPUT 
€ VKGS, VKGD, VKGI = TRIANGULARIZED MATRIX (IF IFAC.EQ. 1) 
Cc VFG SOLUTION (IF ISOQL.EQ. 1) 
Cc ENERG SYSTEM ENERGY (IF NSYM. EQ. 0) 
(aesassieSeSaseseseSsesa—s<Ss2SsSSS5e5—5655———--— == ee 
IMPLICIT REAL#8 (A-H, O-Z) 
DIMENSION VKGS(#) , VKGD (+), VKGI (#), VEG(#), KLD(#) 
DATA ZERO/0. 0D0/ 
Dn ee Re oe ee 
IK=1 
IF (VKGD(1).EQ. ZERO) 60 TO 80 
ENERG=ZERO 
c 
c- FOR GACH COLUMN IK TO BE MODIFIED - 
7 
JHK=1 
DO 100 IK=2, NEG 
C-—-- ADDRESS OF THE NEXT COLUMN TOP TERM IK+i 
JHK1=KLD(IK#L) 
C-—— HEIGHT OF COLUMN IK (INCLUDE UPPER AND DIAGONAL TERMS) 
LHK=JHK 1-JHK 
LHK1=LHK-1 
C-——- ROW OF FIRST TERM TO BE MODIFIED IN COLUMN IK 
IMIN=IK-LHK 1 
IMIN1=IMIN-1 
C-——--- ROW OF LAST TERM TO BE MODIFIED IN COLUMN IK 
IMAX=IK-1 
IF(LHK1.LT.0) 60 TO 100 
IF (IFAC.NE.1) 60 TO 90 
IF (NSYM, £0.1) VKGI(JHK)=VKGI (JHK) /VKGD ( IMIN1) 
IF(LHK1.£Q.0) GO TO 40 
Cc 
C-—-—- MODIFY NON-DIAGONAL TERM IN COLUMN IK 
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JCK=JHK+1! 
JRI=KLD (IMIN) 
C-—— [©QO EACH TERM LOCATED AT JCK AND CORRESPONDING TO COLUMN IJ 
DO 30 IJ=IMIN, IMAX 
JHJL=SKLD (TJ +1) 
(C----—- NUMBER OF MODIFICATIVE TERMS FOR COEFFICIENT LOCATED AT JCK 
IC=MINO(JCK-JHK, JHJ1-JHJ) 
iF (IC. LE.0. AND. NSYM. €@.0) 60 TO 20 
Ci=ZERO 
IF(IC.LE.0) GO TO 17 
Ji=JHJ1-1C 
J2=JCK-IC 
TF (NSYM.EG.1) 60 TO 15 
VAGS (JCK) =VKGS ( JCK) -SCAL (VKGS (31), VKGS(J2), IC) 
G0 TO 20 
15: VKGS (JCK) =VKGS (JCK) -SCAL (VKGI (31), VKGS(J2), IC) 
Ci=SCAL (VKGS (31), VAST (J2), 10) 
17) = VAG IT CCK) =(VK6I (JCK) -C1) /VKED (IJ) 
20 = JCK=JCK+1 
30. SHJ=JHJ1 
C 
C----- MODIFY DIAGONAL TERM 
c 
40) 


JCK=JHK 
CDIAG=ZERO 
DO 70 IJ=IMINi, IMAX 
C1=VK6S (JCK) 
IF (NSYM, EG. 1) 60 TO 50 
C2=C1 /VKGD(1J) 
VKES (JCK) =C2 
GO TO 60 
50 C2=VKBI (JCK) 
60 © CDIAG=CDIAG+C14C2 
7) SCK=JCK+1 , 
VX6D (TK) =VKBD (1K) -CDIAG 
IF {VKED{IK)) 90,80, 90 
BO WRITE(MP, 2000) IK 
2000 FORMAT(! #4 ERROR, ZERO PIVOT EQUATION °, IS) 


STOP 
C 
C-—— SOLVE LOWER TRIANGULAR SYSTEM 
C 


30 IF{ISOL.NE.1) GO TO 100 

TF (NSYM. NE. 1) VEG(IK)=VFG(IK)-SCAL (VKGS (JHK) , VFG(TMIN) , LHK) 
IF (NSYM.EQ.1) VFG{IK)=VFG(IK)-SCAL (VKGI (JHA) , VFG CIMINY) , LHK) 

100 JHK=JHKi 
TF (ISOL.NE.1) RETURN 

C 

C----- SOLVE DIAGONAL SYSTEM 

C 
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IF (NSYM.EQ.1) GO TO 120 
DO 110 IK=1,NEQ 
C1=VKGD (IK) 
C2=VEG(IK) /C1 
VFBLIK) =C2 
10 SNERG=ENERG+C1#C24*C2 


1 
e 
C-—--~ SOLVE DIAGONAL SYSTEM 
C 
{ 


20 TK=NEQ+1 
JHKI=KLD(IK) 
130 IK=IK-1 
TF (NSYM, EQ. 1) VFG(IK)=VFG(IK) /VKGD (IK) 
IF(IK.EQ. 1) RETURN 
Ct=VF6(IK) 
JHK=KLD (TK) 
JBK=JHK1-1 
IF (JHK. GT. JBK)GO TO 150 
1J=1K-JBK+JHK-1 
DO 140 JCK=JHK, JBK 
VFB (1J)=VF5 (1J)-VK6S (JCK) #C1 





1440 TJ=IJ+1 
190  JHKL=JHK 
60 T0 130 
END 
FUNCTION SCAL(X, Y, N) 
(a teseeeese seine wer ass a ee ee ee ee eee 
C INNER PRODUCT OF VECTORS X AND Y OF LENGTH N 
C (FUNCTION TO BE WRITTEN EVENTUALLY IN ASSEMBLER) 
a 
IMPLICIT REAL*8(A-H, O-Z) 
DIMENSION X(#), Y(#) 
DATA ZERO/0. 0D0/ 
(ocean ns Seen eee eee 5 
SCAL=ZERO 
DO 10 I=1,N 
10  SCAL=SCAL+X (1) #¥ (7) 
RETURN 
END 
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SUERQUTINE BLLIND 
C 7Q CALL BLOCK *LIND’ 
C TO ASSEMBLE AND TO SOLVE A LINEAR PROBLEM WHEN MATRIX KG [5 
t STORED BLOCKWISE ON DISK 





IMPLICIT REAL#8(A-H, 0-2) 
CHARACTERS4 TBL 
COMMON/COOR/NDIM, NNT, NDLN, NDLT, FNULL (3) 
COMMON/ELEM/NULL (4) , ME, MNULL (2) 
CORMON/ASSE /NSYM, NKB, NKE, NDLE 
COMMON/RESO/NEG, NRES, MRES 
COMMON/LIND/NLBL, NBLM, MKB1, MKG2 
COMMON/ES/#, MR, MP, Mi, M2, M3, M4, MS, MDUNMY (5) 
COMMON/OLLOC/NVA, IVA, IVAMAX, NREEL, IDUMMY 
COMMON/LOC/LCORG, LDLNC, LNEQ, LDIMP, LPRNG, LPREG, LLD, LLOCE, LCORE, LNE, 
{ LPRNE, LPREE, LDLE, LKE, LFE, LKGS, LXGD, LKBI, LFS, LRES, LDLG, LDUMMY (4) 
COMMON VA(1) 
DIMENSION TBL(10), IN(3) 
DATA DEUX/2. DO/, NBLMAX/100/ 
(+++ THIS IS COMMENTED OUT BECAUSE OF AN MS FORTRAN COMPILER 
(+++ BUG WHICH WILL NOT INITIALIZE $LARGE ARRAYS. THIS ARRAY 
C++ IS NOW INITIALIZED BY A CALL TO A DUMMY SUBROUTINE 
(+++ INITBL WHICH EXISTS SOLELY TO INITIALIZE THIS ARRAY 


c 

C DATA TBL/?KGS ',°KBD °,°KBI °,FG °,°KE °,°FE °,°RES °, DLE ', 
pee ER °,'P9 / 
fp 
C 


HERE IS THE CALL TO GET AROUND THE COMPILER BUG 
CALL INITBL(TBL, ’LIND’) 


C+++ ALL OF THIS IS TQ GET AROUND THE MICROSOFT 
C+++ COMPILER BUG 


C---—-— FILE NUMBERS 
IF(M1.£0.0) MI=MR 
IF (M2,£0.0) MO=KE 
IF (M3, E0.0) M3=MRES 
IF (M4.£0.0) M4=4K61 
IF (W5.E0.0) MS=4KG2 
OPEN (M3, FILE="$$M3$. DAT? , STATUS=" NEW? , FORM=" UNFORMATTED® } 
OPEN (M4, FILE="$$M4$. DAT? , STATUS=" NEW! , FORM="UNFORMATTED’ } 
DPEN (M5, FILE="$$M5$. DAT’ , STATUS=" NEW’ , FORM=! UNFORMATTED? ) 
READ BLOCK PARAMETERS 
READ(M1, 1000) IN 
1000 FORMAT (315) 
IF{IN(1).NE.O) NRES=1 
NLBL=IN(2) 
NBLM=IN(3) 


C 
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WRITE(HP, 2000) M,NRES 
2000 FORMAT(//? ON DISK ASSEMBLAGE AND LINEAR SOLUTION (M=",12,°)?/ 
{ 1 9,42(9=1)/15X, *INDEX FOR RESIDUAL COMPUTATION  (NRES)=", 15) 
IF(LKGD.ED.1) CALL ESPACE (NEQ, 1, TBL(2), LKGD) 
IF(LFG.EQ.1) CALL ESPACE (NEQ, !, TBL(4), LFG) 
IF (LKE.EQ. 1) CALL ESPACE (NKE, 1, TBL (5S), LKE) 
IF(LFE.EQ. 1) CALL ESPACE (NDLE, 1, TBL(6), LFE) 
I= (LRES. £0.1) CALL ESPACE (NDLT, 1, TBL(7),LRES) 
IF(LDLE.EQ. 1) CALL ESPACE (NDLE, 1, TBL(@) ,LDLE) 
(--—---—- FIND BLOCK LENSTH BLLD 44 
1352 
12=1+NSYM 
IF(NLBL.EQ.0) 60 TO 10 
IF (NBLM, EQ. 0) NBLM=NKG/NLBL+2 
60 TO 30 
{0 IL=NVA-IVA~(24NBLMAX+2) /NREEL-1 
IF(11. GE. (NKG#I2+2)) 60 TO 20 


C-----—— _ CASE WHERE MATRIX 1S TO BE SEGMENTED 
NLBL=11/ (DEUX#12) 
NELM=NKG/NLBL +2 
GO TO 30 
C--—-—-- CASE WHERE MATRIX IS IN CORE 
cO = NLBL=NKG 
NBLM=1 
13=1 


30 WRITE(MP, 2010) NUBL, NBL 
2010 FORMAT < 
{ 15X, BLOCKS LENGTH IN KG (NLBL) =", 15/ 
2 15X,"MAX. NUMBER OF BLOCKS IN KG =, 15) 
CALL ESPACE (NBLM+1, 0, TBL (9) , LEB) 
CALL ESPACE (NBLM, 0, TEL(10), LPB) 
IF (LKGS. £0. 1) CALL ESPACE (NBL #13, t, TBL (1), LK6S) 
IF(NSYM. EQ, 1. AND. LKGI.EQ.1) CALL ESPACE (NUBL#I3, 1, TEL(3), LKGI) 
CALL EXLIND(VA(LLD) , VA(LDIMP) , VAXLLOCE), VA(LCORE) , VA(LPRNE) , 


{ VA(LPREE), VA(LNE) , VA(LKE) , VA(LFE) , VA(LKGS) , VA(LKED) , 
2 VA(LKGI) , VA(LFB) , VA(LCORG) , VA(LDLNC) , VA(LNEQ), 
3 VAILRES) , VA(LDLE) , VA(LEB) , VA(LPB)) 

RETURN 

END 
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—— Oe 


eS SOE 


SUBROUTINE EXLIND (LD, VDIM®, KLOCE, VCORE, VPRNE, VPREE, ANE, VXE, VFE, 
] VKGS, VKGD, YAGI, VFG, VCORG, KDLNC, KNEQ, VRES, VDLE, KEB, KPB} 


C TO EXECUTE BLOCK ‘LIND? 
C ASSEMBLE AND SOLVE A LINEAR PROBLEM WHEN MATRIX KG IS STORED 
: BLOCKWISE ON DISK 


IMPLICIT REAL#8(A-H, 0-2) 
COMMON/ASSE/NSYM, NKS, NKE, NDLE 
COMMON/RESO/NEG, NRES, MRES 
COMMON/LIND/NLBL, NBLM, "KGL, MKG2 
COMMON/ES/M, MR, MP, M1, M2, M3, MDUMMY (7) 
DIMENSION KLD(#) , VDIMP(#) , KLOCE (4), VCORE (#) , VPRNE(#) , VPREE(#) , 
1 KNE(#), VRE (#) , VFE (4), VKGS(#) , VAGD (#) , VAGI (#), VEG(#) , VCORG(#) , 
2 KDLNC (#), KNED(#) , VRES(#), VOLE (#) , KEB(#) , KPB(#) 
(0 a rt nn Se ay cere 
REWIND 3 
(-—--—- FORM TABLES EB AND PB DEFINING EQUATION BLOCKS 
CALL EQBLOC(KLD, NUBL,NBLM, NEG, KEB, KPB) 
WRITE (MP, 2000) NBLM 
2000 FORMAT(15X, NUMBER OF BLOCKS IN KG (NBLM)=", 15) 
IF(M.LT.2) GO TO 10 
T1=NBLM+1 
WRITE(MP,2010) (KEB(I), I=4, 11) 
2010 FORMAT(/? FIRST EQUATION IN EACH BLOCK (EB)’/(5X,2015)) 
WRITE (MP, 2020) (KPB(I), I=1, NELM) 
2020 FORMAT(/? FIRST BLOCK CONNECTED TO EACH BLOCK: (PB)°/(5X,2015)) 
C-——-- SAVE FG UNMODIFIED FOR PRESCRIBED B.C. 
10. WRITE (3) {VFG(I), I=1,NEQ) 
IF(M.GE.2) WRITE(MP, 2030) (VFG(I), I=1,NEQ) 
2030 FORMAT(/? GLOBAL LOAD VECTOR UNMODIFIED FOR THE B.C. (FG)? 
1/(1X, 10E12.5)) 
(-——— ASSEMBLE KG, MODIFY FG FOR B.C. AND SAVE MODIFIED FG 
CALL ASKGD(KLD, VDIMP, KLOCE, VCORE, VPRNE, VPREE, KNE, VKE, VFE, VKGS, 
1 YKGD, VMGI, VFG, VDLE, VRES, XEB) 
WRITE(M3) (VFG(I), I=1,NEQ) 
PRINT FG 
IF (M.GE.2) WRITE(MP, 2040) (VFG(I), I=1, NEQ) 
2040 FORMAT(/? GLOBAL LOAD VECTOR MODIFIED FOR THE B.C. (FG)? 
1 /(1X, 10612. 5) ) 








C-— 


C 
peomcae | CULE 


i 

20 CALL SOLD(VKGS, VKGD, VKGI, VFG, KLD, NEG, MP, 1, 1, NSYM, ENERG, XEB, KPB) 
IF(NSYM. NE. 1) WRITE(MP, 2050) ENERG 

2050 FORMAT(15X, ENERGY  (ENERG)=", 1£12.5) 

c KG PIVOTS AND DETERMINANT 

30 CALL PRPVTS<VKED) 

c PRINT OUT THE SOLUTION 
WRITE (MP, 2060) 








21k 


2060 FORMAT(//? SOLUTION! //) 
CALL PRSOL(KDUNC, VCORG, VDIMP, KNEQ, YFG) 


c 
(-—----- EVALUATE AND PRINT GRADIENTS 
Cc 
CALL ASGRAD(KLD, VDIMP, KLOCE, VCORE, VPRNE, VPREE, KNE, VKE, VFE, VKBS, 
1 VKGD, VKGI, VFG, VDLE, VRES) 
c 
C-——-— EVALUATE AND PRINT EQUILIBRIUM RESIDUALS AND REACTIONS 
c 
(-——— READ VECTOR FS AND CHANGE ITS SIGN 
REWIND 43 
READ(M3) (VRES(I), 1=1,NEQ) 
DO 40 I=1,NEQ 


0 = VRES (1) =-VRES (1) 





c - ASSEMBLE RESIDUALS AND REACTIONS 
CALL ASRESD(1, 1,KLD, VDIMP, KLOCE, VCORE, VPRNE, VPREE, KNE, VKE, VFE, 
1 VKGS, VKGD, VKGI, VFG, VDLE, VRES, VRES(NEQ+1 ) ) 

(-—--—- QUTPUT 


WRITE (MP, 2070) 

2070 FORMAT(//? EQUILIBRIUM RESIDUALS AND REACTIONS? //) 
CALL PRSOL(KDLNC, VCORG, VRES (NEG+1), KNEQ, VRES) 
RETURN 
END 
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GUBROUTINE EGBLOC(KLD, NLEL, NBLMAX, NEG, KEB, KPB) 


a ae Say es ES GD SD ee ee ee i eee es ee ee ee 8 eee Se ee a ee eee ee ee es ee 
em ee ee ee ees ee ee ee ee ee ee oe ee ee © ee ee ee ey ee ee es ee ee Se ee oe ee ee ee eee ee ee 


C= 
TO FORM TABLES KEB AND XPB DEFINING EQUATIGN BLOCKS 

C INPUT 

C KLD ARRAY OF A ADDRESS OF COLUMN TOP TERMS IN K6 

C NLBL BLOCKS LENGTH 

C NBLMAX MAX. NUMBER GF BLOCKS ALLOWED 

: NEG NUMBER OF EQUATIONS 

c OUTPUT 

C KEB ARRAY CONTAINING THE NUMBERS OF FIRST EQUATIONS IN 

. EACH BLOCK (DIMENSION NEG+!) 

5 KYB ARRAY CONTAINING THE NUMBER OF FIRST BLOCKS CONNECTED 
& TO EACH BLOCK (DIMENSION NEQ) 

B NBLMAX NUMBER OF BLOCKS 


COMMON/=S/M, MR, MP, MDUMMY (10) 
DIMENSION KLD(#) , KEB(#), KPB(#) 


(——---- FIRST BLOCK 
ILBL=0 
NBL=! 
KEB(1)=1 
KPB(1) =1 
(MINE! 
FOR EACH EQUATION 
DO 70 IK=1,NEO 
ADDRESSES FOR COLUMN IK 
JHKEKLD (IK) 
JHK1=KLD(IK+1) 
L BK 1 =JHK1-JHK 
TF(LBK1.LE.NLBL) GO TO 10 
WRITE(MP, 2000) IK,LBK1, NLBL 
2000 FORMAT(? #+# ERROR, COLUMN’, 15,’ GREATER(?, 15,7) THAN BLOCK(? ,I5,° 
1)?) 
STOP 


Y-- 





C 





C CHECK FOR NEW BLOCK 
{0 ILBL=ILBL+LEK! 
IF(ILBL.LE.NLBL) GO TO 60 
NBL=NBL+1 
IF (NBL.LE.NBLMAX) GO TO 20 
WRITE (MP, 2010) IK 
2010 FORMAT(? ##* ERROR, EXCESSIVE NUMBER OF BLOCKS, EQUATION’, I5) 
STOP 
20 XEB(NBL)=IK 
ILBL=LBK1 
SEARCH FOR FIRST BLOCK CONNECTED TO COMPLETED BLOCK 
TB=NBL 
40 06s IF (IMIN. GE.KEB{IB)) 6D TO 50 
IB=1B-1 
GO TO 40 





C 





Zila 


90 = KPB(NEL-1)=I8 
IMIN=IK 
C--—----- SEARCH FOR MINIMUM ROW NUMBER FOR COLUMN TOP TERMS 
60 J=IK-LBKI+t 
IF (L.LT. IMIN) IMIN=I 
70 ~—- CONTINUE 
C------—- FIRST BLOCK CONNECTED TO LAST BLOCK 
TB=NBL 
80 IF (IMIN. GE. KEB(IB)) GO TO 90 
IB=IB-i 
60 T0 80 
90 = KPB(NBL)=IB 
KEB (NBL+1) =NEG+1 
NBLMAX=NEL 
RETURN 
END 
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SUBROUTINE ASKGD(KLD, VDIMP, XLOCE, VCORE, VPRNE, VPREE, KNE, VKE, VFE, 
{ KGS, VAD, VKSI, VFG, VDLE, VRES, KEB) 


TO ASSEMBLE GLOBAL MATRIX KG (ELEMENT FUNCTION TYPE 3) 
TAKING INTO ACCOUNT OF PRESCRIBED NON ZERO D.0.F. 
VERSION =: MATRIX KG STORED BLOCKWISE ON FILE M4 


C3 0) O39 


IMPLICIT REAL#8 (A-H, 0-2) 
COMMON/COND/NCLT, NCLZ, NCLNZ 
COMMGN/ELEM/NELT, NNEL, NTPE, NGRE, ME, NIDENT, MNULL 
COMMON/ASSc/NSYM, MFILLR(3) 
COMMON/RESO/NEQ, NFILLR (2) 
COMMON/REDT/IEL, ITPE, ITPE1, IGRE, IDLE, ICE, JPRNE, IPREE, INEL, IDES, IPS 
1 ,1COD,NULL (3) 
COMMON/LIND/NUBL, NBL, MKG1, MKG2 
COMMON /ES/M, MR, MP, Mi, Me, MS, M4, MS, MDUMMY (5) 
DIMENSION KLD(#), VDIMP(#), KLOCE (#), VCORE (#), VPRNE(#), VPREE(#), 
1 KNE(#), VKE(#), VFE(#), VKGS(#), VKGD (#), VEGI (#), VFG(#), VDLE(#) , 
1 VRES(#),KEB(#) 
DATA ZERO/0. DG/ 
De eee en 
C-—---—-_ REWIND FILE M4 
REWIND 44 
fee LOOP OVER ThE BLOCKS 
DO 80 IB=1,NBLM 
INITIALIZE THE BLOCK 
DO 10 T=1, NLBL 
IF (NSYM.EQ. 1) VKGI(I)=ZERO 
10 VKGS(1)=ZERO 
TE1=KEB (3B) 
TEC=XEB(IB+1)-1 
REWIND ELEMENT FILE (Me) 





ae SP Se SS SE EE Se See a ee 





C 





C—— 


REWIND M2 

C-—-—--- LOOP QVER THE ELEMENTS ASKD 34 
DO 70 IE=1,NELT 

(-----—- READ AN ELEMENT 


CALL RDELEM (Me, KLOCE, VCORE, VPRNE, VPREE, KNE) 








c CHECK IF BLOCK IS AFFECTED BY THIS ELEMENT 
DO 20 ID=1, IDLE 
J=KLOCE (1D) 
IF(J.LT. IE1.0R.J.67.JE2) 60 10 20 
60 TO 40 
20 CONTINUE 
30. IF(IB.NE.1.0R. (NCLNZ.EQ.0.AND.IB.E0.1)) 60 TO 70 
C—-——- EVALUATE INTERPOLATION FUNCTIONS IF REQUIRED 
40 IF(ITPE.EG.ITSEL) 60 10 50 
ICGD=2 
CALL ELEMLB (VCORE, VPRNE, VPREE, VDLE, VKE, VEE) 
c FORM ELEMENT MATRIX 
50 ICOD=3 


Di 


CALL ELEMLB(VCORE, VPRNE, VPREE, VDLE, VME, VFE) 
(------- PRINT ELEMENT MATRIX 

IF(M.LT.2) 60 TO 60 

IF(NSYM.EQ.0) IKESIDLE*(IDLE+1)/2 

TF(NSYM. £Q.1) IKE=IDLE*IDLE 

WRITE (MP, 2000) IEL, (VKE(I), I=1, IKE) 
2000 FORMAT(/) MATRIX (KE) , ELEMENT:’, 15/(10X, 10612. 5)) 





C— MODIFY FG FOR THE PRESCRIBED NON ZERO D.0.F. 
60  IF(NCLNZ.NE.O.AND. IB.€0.1) CALL MODFG(IDLE, NSYM, KLOCE, VDIMP, VE, 

{ FG) 
C-—-—— ASSEMBLE ASKD 61 

CALL ASSELD(1,0, IDLE, NSYM, IE1, IE2, KLOCE, KLD, VKE, VFE, VKGS, VK6D, 

1 VMGI, VF6) 

ITPE1=ITPE 
70 CONTINUE 
C END OF A BLOCK 





WRITE(N4) (VKGS{I), I=1, NBL) 
IF(NSYM.EQ. 1) WRITE(M4) (VKGI(I), I=1,NLBL) 
IF(M.LT.2) 60 TD 80 
WRITE (MP, 2010) IB, (VKGS(I), I=1,NUBL) 
2010 FORMAT(? UPPER TRIANGLE BLOCK OF (KG) NOs’, I5/(1X, 10612, 5)) 
IF(NSYM.EQ, 1) WRITE(MP, 2020) IB, (VKGI(I), I=1,NUBL) 
2020 FORMAT(’ LOWER TRIANGLE BLOCK OF (KG) NOs’, I5S/(1X, 10612.5)) 
80 CONTINUE . 
IF (M.GE.2) WRITE(MP, 2030) (VKGD(I), I=1, NEQ) 
2030 FORMAT(? DIAGONAL OF (KB)'/(1X, 10612, 5)) 
RETURN 
END 


2286 


SUSROTINE ASSELD( 145, 155, IDLE, NSYM, LE!, [E2, 4LGDE, ALD, V4E, VRE, 
1 VXGS, VKGD, VXGI, VEG) 


ey ts am GM ay mmm am mm ce my me ee ee ee see 








pager ere a 
C TO ASSEMBLE ELEMENT MATRIX (SVNMETRIC OR NOT) AND/OR VECTCA. 
7 THE MATRIX I$ STORED BLOCKWISE ON DIS¥ 
Cc INCUT 
7 IMG 0s«TF IMG.ED.1 ASSEMBLE ELEMENT MATRIX XE 
c FG sdTFsIFG.EQ.1 ASSEMBLE ELEWENT VECTOR FE 
c COLE NUMBER OF D.C.=. GF THE ELEMENT 
c NSYM = Q=SYNMETRIC PROBLEM, i=NON SYMMETRIC PROBLEY 
E 121,122 SI8S7 AND LAST COLUMN OF 46 7D BE ASSENS en 
c MLOCE ELEMENT LOCALIZATIGN VECTOR 
c AUB CUMULATIVE COLUYN KETGKTS IN XG 
c VAE ELEMENT YOTRIX 4E (FULL OR LDPER TRIANGLE EY 
C DESCENDING COLUMNS) 
c VFE «ELEMENT VECTOR FE 
C CUTOUT 
c V48S, VED, VXI © SLOERAL MATRIX (S¥YLINE) 
i (SYMMETRIC OR NGT) 
c V°5 «GLOBAL LOAD VECTOR 
ee a a ee a ee ea ee Sea a eee ae aa ease ae assss=sss==== 
IMPLICIT 220L#8(A-4, 0-2) 
DIMENSION KLOCE (#)  XLD(#) , VHE(#) , VES (#)  VXGS (4), VEBD LF), 
t  VMSI(#), VES (#) 
c 


Cie 


TF (ZAG. NE.) 50 TO 100 
eee 
L2GG= IDLE 
reais! 
eo ——— PRP EREAR COLUMN ile “= 
JO 90 JD=1, Die 
i> (NSYM, NEW) TEGO=JD 
JUFKLOCE (SD) 
peeee e905 30 40 
1G TO=KLD(IL+3) -1OBLGC 
inN=ibYt 
1G=3 
co \ dione. sed, 0K, Jt.6). 122) GO Tf 90 
amma FOR EACH ROW OF KE 
DG 60 D=1, IDLE 
TL=KLOCE (7D) 
te (NSYM, 20,4) GO TO 30 
iF(ID-JD) 30, 20,20 
cQ T@=:D 
30 T=(TL) 80, 80,40 
Af} {J=JL-iL 
Trild) 80, 30,60 


gale 


[e=seaa DIASONAL TERS OM do 
SO VAGD CTL) =VKGD (iL) +VHE (ZED) 
bY TO 80 
Ca—————— JOUER TRIANGLE Vea NSeieree 
60 T=f0-2J 
V455 (5) =V465 (1) +VAE (Tee) 
iF(NSYM. Ne. 2) GO TG 80 
U~----=— ufwer TROPAGL= ‘case exG 
leGi=(1D-i) #IDLE+JD 
Vai (1) =Vaio: (1) +Vde (TEQ2) 
£0 TEGsiEG+10 


30) TEGL=[2Gi+7EQ0 

us 

Pow-—== BaGege = Element Ve ieK 
Fan 

{ee 

300 JF (2rG.NE.L) 60 70 130 


DG t20 ID=i, IDLE 
TL=XL0CE (7D) 
iF (IL) 120,920, @ 
{10 - VEGCIL) SVFS(1L) 4VFE (TD) 
‘20 = CONTINUE 
{30 RETURN 
END 
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CODRDUTINE SOLDAVMGS, VASD, VAST, VPS, ALD, NEG, 42, 1540, (SCL, WS, ENERS 
1 ,KEB, XPB) 


“a 


Ee ee ee en ee a aa ea ea Saas asesess2s== 
b 7G SOLVE & LINEAR SYSTEM (SYMMETRICAL ON NUT). 

L Fame tX TSeSaGRED tne (Le 44 va SAY Gi NES. 

c AETER TRIANGULARIZATION IT 25 STORED UN FILE MO 

: INTRUE 

c VAbS, VAGD, VAGL SYSted MATAIX 2 USER, UIAGUNEL OND LuWe% 
C PARTS 

G VF§ SECOND MEMBER 

C KLD ADDRESSES GF COLUMN TOP T2RMS 

E NEG NUMBER OF cGUAT IONS 

t mi MUTPUT DEVICE NUMBER 

u IFA Te TRAC. 20.1 TRIANSULORIZATIUN CF 

e FRE MATRIX 

: iSdi TF [SOL.cG.1 COMPUTE SOLUTION RUM Thr 

C TRIANGULARIZED MATRIX 

: NSYM INDEX FOR NON SYMMETHIC PRUBL=# 

U KEB NUMBER GF FIRST EGUATION IN EACH 

C BLCCK 

C APH NUMBER GF FIRST BLUCK CONNECTED 1C EACH 
U BLOCK 

iG QUT PUT 

i VAGS, VAG), VAG! TRIGNGULARIZED MATRIX (IF [FAC eu. 1) 

eG VEG SOLUTION (IF ISGL. EG. {) 

c ENeERS SYSTEM ENERGY (IF NSYM.EG, 0) 

fee oe ee en aaa ae aa aaa eae ae ee eae Sess eo Ss aS =e=e== SS 


IMPLICIT ReAL*8 (A-H, O-Z) 
COMMON/LIND/NLBL, NBLM, NDUMMY (2) 
COMMON/ES/M, MRS MPL, Mi, M2, 43,84, 4S, MOUMAY (5) 
DIMENSION VKGS C#), VKGD(#), VAGI (#), VFG(#) HLD(#) KER (#), KOR (#) 
DATA ZERO/G. OD0/ 
REWIND 4 

420iND MS 


yd 
s A=} 


rr (V46D(1).ER. ZERO) 5G TD 90 
ENERG=TERD 


------- Fd cACH BLOCK 7Q BE TRIANGULART ZED 


a Se 


va iM N= VB ti 

TvGNeN. BL ANLEL 

DO 103 ib=., NEL* 
aga e= nergy & slQlX 7 Be TRIANGULARIZE 

READ (MG) iv 4GE(2}, Tet, NUBL) 

TPANG Mie. ob ORE ere) (VKGI (2), [=1, NSLBL) 
toa PARRA iano -.72 sameX *E 

LKO=4E3 (CE) 

TASKER (GB Si iH: 


Ded 


TBO=KPE (7B) 
JO=KLD (140) -! 
IF (TBOsee. 1B) GO fa 11 
(----—-- BACASSSCE GX CONNECTED BLICKS 
TL=IB-I80 
DG 10 f=t, 1: 
BACKSPACE &5 
TE (NSYMJeQ. 1) BQCYSPSce x 
10 CONTINUE 
{- FGR Aca CONRZ0°20 BlOCK (INGEUDDNG BeuCs ib iTeSc= 
tt DO 103 IBC=!50, '8 
IF (CIBC.EQ. 78) cd 1D tz 
(=a 





READ (MS) (VKES(T), as 

TF (NSW S051) README) (WAGs <_), iN, JL MAX) 
C-----—- _ PARAMETERS GF CUNREC =) aM 
le TIQ=KEB (TAC) 

TL LSKee (DEG+! )—1 


JCQ=KLD (110) -2 
TFCIBC. NE. 2B) JCO=JCO-NUEL 


FGR EACH COLWMNeOF sLOCK 18 Gu s2 AGJists9 





DO 100 IK=IKO, IX! 
JHK=KLD (IK) -JO 
(--—-— ADDRESS GF NEXT COLUMN TO TERY IK+! 
JHKL=KLD (IK+1) -J0 
C-—— HEIGHT OF COLUMN IK (INCLUDE US2ER ANE DIABOWOL T=2*S) 
LHK=JHK1-JHK 
LHK1=LHK-1 
C-—— ROW OF FIRST TERM TG BE MODIFISD IN COLUMN 1X 
IMINSIK-LHK! 
IMINISIMIE! 
ROW OF LAST TERM TO BE MODIFIED IN COLUMN IX 
IMAX=1K-t 
IF(LHKL.LT.0) 60 70 100 
IF (IFAC.NE.1) 6G TC 90 
IF (NSYM,£9.0) SG 72 14 
IBI=IB 
IF (IMINI.LT, IMO) I81=IBO 
IF (TBC. EQ, 1B!) VMBI (JHA) =VMBI (SHA) /VK&D(2¥IN1) 
14  IF(IBC.EQ. IBJAND. IX.20, 140) 8G TO 46 
IF (LHKI.£0.0) GO TO 40 





C~ 


C-———— FIND FIRST SND LAS; AGW OF COLUMN IX Arr=tT= 
C BY CONNECTED LOCK {BC 
IMINC=MAXO (iMIN, T1Q) 
IMAXC=MINOCIMAX, II!) 
TF CIMINC. GT. IMAXC) GO TO 40 
C 
C-——- MODIFY NON DIAGONAL TERMS OF COLUMN IM 
C 


JCK=JHK+ IMINC-IMINE 


Dy) 


em 


a 


JHJFKLD (IMINC) -JC) 


DO 30 LJSIMING, INAKC 
FAJLEKLD (1 J+1) -320 
C-——- NUMBER OF MODIFICATIVE TERNS OF COSFSICIENT LOCATED AT ICy 
IC=MINO(JCK-JHK, JHJI-JHJ) 
IF (IC, LE. 0, AND, ASYM. 28,0) GO 70 20 
C1=ZERO 
IF(IC,LE.0) GO Ta :7 
JLSJHIi-1C 
J@=JCK-IC 
IF(NSYM.EG. 1) GO TO 15 
VKGS (JCK) =VASS (IK) -SCAL (VKGS (TL), VASS(I2), 10) 
60 70 20 
15 VKGS{JCK) =VHKGS (ICX) -SCALVKGI (71), V48S (02), 10) 
CI=SCAL (VKGS (1), VKEI (72), 20) 
17: VGI (JCK) =(VKGT (SCX) -04) /VA4S0 (2) 
20 © JCK=JCK+1 


30. JHJ=JHI! 
c 
(-—-—- MODIFY DIAGONAL TERM 
p 
40  IF(IBC.NE. 18) 60 70 30 
JCK=JHK 
CDIAG=ZERO 
DO 70 IJ=IMIN1, IMAX 
C1=VKGS{JCK) 


TF (NSYM.E9.1) 60 TQ 50 
Ce=C1/VKSE (iJ) 
VKGS (JCK) =Cz 
60 70 60 
30 = Ce=VKGI (CK) 
60 CDIAG=CDIESS+Ci ec: 
70 = SCK=JCK+1 
VKSD (1X) =VAGD IA) -cDZAG 
TF(VKGD(TK)) $0, 86, 90 
BO  WRITE(MP, 2000) IX 
C0GO FORMAT(? ### ERR0K, ZERO oT VOT SGUATION *, 15) 


STOP 
C 
C-—— SOLVE LOWER TRIANGLLAR SYSTE* 
U 


90 IF{ISOL.NE.1) GO TO 109 

IF(IBC.NE.IE) GO TO 100 
IF (NSYM, NE, 1) VFG(TA)=VF@( 1K) ~ECAL (V4G8 (4) ,YFG(LMINL) j HM) 
IF (NSYM. EG. 1) VEG(IK) =VFG{IX)-SCAL VMGI (ZS), VEGLIMINE) , LHX) 

100 CONTINUE 

c NEXT CONNECTED BLOCK 

103 CONTINUE 

(-—--—— END OF ELIMINATION GF THIS BLOCY 
IF (1B.EQ,NBLM) 80 70 105 





PIAA 


WRITE(MS) (VHGS(1), 251, NOEL 





IF(NSYM.EG. 4) WRITE(WS) (VABICI), 22, NEL} 
105 CONTINUE 
IF(ISOL.NE. 1) RETURN 
Cc 
(-—-- SOLVE DIAGONAL SYSTEX 
c 
IF(NSYM.EQ.1) GC 7D 120 
DO 110 IK=1,NEG 
C1=VKSD (IK) 
C2=VEG(IK) /Ct 
VFG( I) C2 
110 ENERG=ENERS+C1*Cz 402 
c 
C-—— SOLVE UPPER TRIANGULAR SYSTEM 
Cc 
120 IB=NBLM 
IKO=¥EB(1B)-1 
JO=KLD{TKO+1)-! 
IK=NEQ+! 
JHKL=KLD{IK)-J0 
c—- FOR EVERY EQUATICN FROM NEO “Ci 
130. IK=IK-1 
(——---—- READ! A BLOCK IF REQUIRED 
IF(IK.NE. KO) 30 TO {25 
BACKSPACE §5 


IF (NSYM.EQ. 1) BRCHSPACE NS 
READ (M5) WWKBS(: ), =f, NoBL) 
IF(NSYM.EG. 1} READ(ME) (VHBI(1), Z=1, NUEL) 
BACKSPACE MS 
IF(NSYM.EG. 1} BACKSPACE mS 
IB=1B-1 
IKO=KEB(1B)-1 
JO=KLD(TXO+1)-1 
JHK1=KLD(IK+1)-J0 
C--———— MODIFY THE UNKNOWN VECTOR 
{35 IF(NSYMLEQ.1) VFG(IX)=VFG(IK) /VKBD< 74} 
IF(IK. EQ. 1) RETURN 
C1=VFG(IK) 
JHK=KLD (IK) -JO 
JBK=JHK 1-1 
IF (JHK.GT. JEK)GO TO 150 
[J=1K-JBK+JHK-1 
DO 140 JCK=JHK, CBK 
VFG (13) =VFG( iJ) -VKBS (JCK) C1 
140 TJ=1J+1 
150 JHK1=JHK 
60 TD 130 
END 


Zee 


SUBROUTINE BLALIA 


SS ec ce ce ts gp gre te ce re ee ee ce ce ee ee ee ee ee ee ee ee ee eee ee 
ce ce ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee es ee ce ce ee ee ee ee ee ee ee ee ee ee ee et es ee 


U TO CALL BLOCK *NLIN® 
C TE SUCVE A STSHDY NUNP LINEAR eaceles 


ee mm Sc em cee ee ce ee ee ee ee ie es 
em mm er rr cm nc se ce ee et ee ee ee ee eee ee ie SS 


IMPLICIT REAL*8(A-H, 0-2) 
CHARACTER#4 TEL 
COMMGN/ELEM/NULL (4), ME, MNULL (2) 
COMMON/ASSE /NSYM, NKG, NXE, NDLE 
COMMON /RESO/NEQ, NFILLR(2) 
COMMON/NLIN/EPSDL, XNORM, OF EGA, XPAS, DAS, GAAS, NERS, LHd5, NIE, 
1 ITER, IMETH 
COMMON/ES/M, MR, MP, Ai, tc 3, 44, MDUMMY (5) 
COMMON/LOC/LCORG, LDLNC pUNES, LINE, PRG, LPAEE, 9, LUCE, Cae, oP 
eemermenordine, LOLE, LHe FE. 65, 460, LNG, 5, LAeS, LOL ie, 
2 LDUMMY (3) 
COMMON VA(1) 
DIMENSION TBL{10), IN(Z), XIN(3) 
C+++ THIS IS COMMENTED QUT BECAUSE OF AN MS FORTRON COMPILER 
C++ BUG WHICH WILL NOT INITIALIZE $LARGE ARRAYS. Tris BaReY 
C++ IS NOW INITIALIZED BY A CALL 70 A DUMXY SUBROUTINE 
C+++ INITBL WHICH EXISTS SOLELY TO INITIALIZE THIS ARRAY 


C 
C DATA TBL/*XGS ',*KGD ',°XGI FG ' SKE 8,755 8 7RES * DLE 
C «£ RG ',3ME 17 
c 
c HERE IS THE CALL TO GET AROUND THE COMPI_=2 BUG 
CALL INITBLI{TBL, ‘NLIN’) 
c 


C++ = ALL OF THIS 15 70 GET ARQUND THE MICROSOFT 
C++ COMPILER BUG 
c 
Deen pea an a en een 2 a 
IF(M1.E0.0) MISHR 
IF (M2. E0.0) M2=ME 
WRITE (MP, 2000) & 
2000 FORMAT(//! NON LINEAR SOLUTION (M=?, 12,1)? /1X,23("=!)) 
c TO ALLOCATE SPACE 
IF(LKGS. EQ. 1) CALL ESPACE (NKG, f, TBL(1) ,LXSS) 
IF(LKGD.EQ. 1) CALL ESPACE(NED, t, TBL(2) LAG) 
IF (NSYM, EQ. 1. AND. LAGI. 20.1) CALL ESPACE (NMS, {, TEL(3), LXG2) 
IF(LFG.EQ.1) CALL ESPACE (NED, 1, "BL(4) LF! 
IF (LKE.EQ. 1) CALL ESPACE (NKE, 1, “BL (5) KE) 
IF(LFE.EQ.1) CALL ESPACE (NDLE, 1, THL(S) ,LFE) 
IF({LRES. EQ. 1) CALL ESPACE (NED, 1, TEL(7), LRES} 
IF(LDLE.EQ. 1) CALL ESPACE(NDLE, 1, THL(B) ,LOLE) 
IF(LDLG. EQ. 1) CALL ESPACE (NER, {, 7BL(9), BLS) 
IF(LME.EQ. 1) CALL ESPACE (NKE, 1, 7HL(10),L¥=) 
C-----—- TO EXECUTE THE BLOC 
CALL EXNLIN(VA(LCORG) , VA(LDLNC) , VACLDI¥S) VR CLNER), YACLLD), 





Ze 





1 VA(LLOCE) , VA(LCGRE), VA(LOSAE) YO (Lames) VAC NE} VEILYES VO(LIFE} , 
2 VA(LFE), VA(LDOLE), VA(LADS)  VACLYSD) , VACLRGL), Votes) Voli? 
3 VAI(LDLG)) 
RETURN 
END 





$LARGE 

$NOFLOATCALLS 
SUBROUTINE EXNLIN(VCORG, KDLNC, VDIMB, ZNED, KLD, XLOCE, VCORE, VANE, 
{ VPREE,KNE, VKE, VME, VFE, VDLE, VKGS, VAGD, VKG!, VFS, VRES, VDLS) 


gE SSS SSS SS SS SS SS SS SS SE eS ey Se ee ye ee ee ee ee ee ee ee SS SS SS Se 
= ee oS SS ee Se SSS SS SS SS eS SS OS SS SS SS SS SS SS a SS SS SS SS SS Se SS 


C TO EXECUTE BLOCK *NUIN® 
C TQ SGLVE A STEADY NON LINEAR PROBLEM 


a ce se ec ee ee ee ee ee ee ee ee ee ees ee = 
a ce Se oe ee ee ee ee ee ee ee ee ee ee ee ee eee ae es = 














_———— 


IMPLICIT REAL#S(A-H, 0-2) 
COMMON/RESO/NEQ, NFILL (2) 
COMMON/COND/NCLT, NCLZ, NCLNZ 
COMMON/ASSE/NSYM, MFILLA(3) 
COMMON/NLIN/EPSDL, XNORM, OMEGA, X9AS, D245, DPASC, NAS, ISAS, NITER, 
{ ITER, IMETH 
COMMON/ES/M, MR, #9, Mi, M2, M3, 44, MDUMMY (6) 
DIMENSION VCORG(#), KDLNC(#), VDIMP (+), HNEQ(#) , KLD(#) , HLOCE (4), 
{ VCORE (#), VPRNE(#) , VOREE (4), MNE(#), VE (4) YE C4), VEE CH), VOLE C4), 
2 VKGS(#) , VAGD(#) , VAG (#), VFG (4), VRES(#), VOLS (4) 
DATA ZERO/0.DO/ 
DPASO=ZERO 
XPAS=ZERD 
IPAS=0 
C-—-—— READY INITIAL D.0.F. ON FILE #3 
IF(M3.E0.0) 60 TD 10 
REWIND 3 
READ (M3) (VDLG4I), I=1,NEQ) 
C——-— READ A CARD DEFINING A SET OF IDENTICAL STEPS 
{0  READ(M1, 1000) DPAS, 11,72, 13, Xt, X2 
1000 FORMAT(F10. 0, 315, 2F 10. 0) 
IF (DPAS. EG. ZERO) GO TO 140 
IF(11.67.0) NPAS=11 
IF (12,67.0) NITER=I2 
IF(13.87.0) IMETH=73 
IF (X1.GT. ZERO) =PSDL=%: 
IF (X2.67. ZERO) CMEGA=K2 


ee ee ie em eee ee 








C- 


c 
C-—----- LOOP OVER ALL STEDS 
E 
DO 130 IP=1, NPAS 
IPAS=IPAS+1 
YPAS=XPAS+DAAS 


WRITE (MP, 2000) TPAS, DPAS, XPAS NITER, IMSTH, S9SD_, OAEGR 
COO0 =FORMAT(/iX,i3(9-'), STE NUMBER (IPAS) :?, [5// 
14X, )INCREMENT (DPAS)=' , =fc.9/ 


Za 











2 14X, 9TOTAL LEVEL (XPOS) =! S12, 5/ 
3 LAX, 'NUMEE2 OF ITERATIONS (NITE) =) 112/ 
4 t4X, *METHOD UBER LIMETES 1) T13/ 
5 14X, ’ TOLERANCE (S250. y=" 512,5/ 
6 14X, ‘OVER RELAXATION SACTOR = ESR)=", £12,575 
c 
C-————_ LOOP OVER EQUILIBRIUM ITERATIONS 
c 
DO 110 ITER=!,NITER 
c CHOOSE THE METHOD 
IF (IMETH.GT.3) GO TO 20 
c NEWTON TYSE METHODS 
CALL NEWTON (VCGRG, KDLNC, VDIMP, KNEQ, KLD, KLOCE, VCORE, VPSNE, VOREE, 
t KNE, VKE, VME, VFE, VDLE, VES, VKGD, VKGI, VEG, VAES, VDLS) 
6D TG 100 
c OTHER METHODS ...... 
20 CONTINUE 


WRITE(MP, 2010) IMETH 
2010 FORMAT(? 44 ERS0R, METHOD:?,13,? UNKNOWN!) 
STOP 
c COMPUTE THE NORM 
100 CALL NORME(NEQ, VRES, VDLS, XNORM) 
IF(M.GT.0) WRITE(MP, 2020) ITER, XNORM 
2020 FORMAT(SX, ‘ITERATION (ITER) :',13,! NORM (XNGRM)=!, £12. 5) 
IF (M.G2.2) CALL PRSOL(XDLNC, VCORS, VDiN®, KNEG, VDL) 
IF (XNORM, LEJEPSDL) GO TO 120 





110 CONTINUE 
ITER=NITER 
Ca END TE STEP 


120  DPASO=DPAS 
WRITE (MP, 2030) ITER, NITER 
2030 FORMAT(/10X,14,' PERFORMED ITERATIONS GVEA’, 14/3 
IF(M.LT.2) CALL PRSOL(XDLAC, VCGRG, VDIMP, HNEQ, VDL) 
130 CONTINUE 


60 TO 10 

C-—--——-_ SAVE THE SOLLUTIGN CN File 4 

140 TF (M4.NE.O) WRITE(M4) (VDLG(T), c=1, NEG) 
RETURN 
END 


226 


SUBROUTINE NEWTON(VCORG, KDLNC, VDI%9, 4420, 4.2, 4LOCS, VODRE, VRE, 
{ VPREE, KNE, VKE, VME, VFE, VOLE, VKGS, VHGD, V4E7, Vig, VRES, VDLS) 


mm ct ee ee ee eee ee ee ei ee eae i ee eee 
ci ee ee eee ee ee ee ee ee ee ee 


C ALGORITHM FOR NEWTGN-RAPESON TYPE METRGDS 





C TMETH. 20.1 COMPUTE K AT EAth Terai Tun 

C TMETH.EQ.2 K 1S CONSTAKT 

e IMETH.ER.3$ RECOMPUTEC K AT TRE ScGINNING OS cack Sfce 

SES Se eS Se a oe ae ae ae ae ae ee oe 


IMPLICIT REAL#S(A-H, 0-2) 
COMMON/ASSE/NSYM, NKS, MFILLA (2) 
COMMON/RESO/NEQ, NFILLR(2) 
COMMON/NLIN/EPSDL, XNOR™, OMEGA, XPAS, DPAS, DPASC, NPAS, 27.43, NIT7Z3, 
1 ITER, IMETH 
COMMON/ES/M, MR, MP, MELIMMY (10) 
DIMENSION VCORG(#) ,KDLNC (4), VOIMB(#) , KNEG (4), 40D (#) | KLOCE (4), 
{ VCORE (#), VPRNE (4), VPREE (#) NE Ge) VRE CH), VME (4), VEEC#) VDLE(¥), 
2 VKGS(#), VKGD (x) , VBI {#) , VFG(#)  VRES (4), VOLG CH) 
DATA ZERO/0.DO/,UN/1. D0/ 
Da W- ---+-—- -- ~------ --- ------ - ----------+--- ee ee ee ee te ce 
C————- DECIDE IF GLOBAL MATRIX !S TO REASSEMBLED 
IKT=0 
IF (IMETH. £8. 1) 60 TO 10 
IF(IPAS. EO. {.AND. ITER.£Q.1) SO TO 10 
IF (IMETH. EG. 3. GND. ITER.EG. 1) GO 70 10 
60 70 20 
{0 IKT=! 
(-—-——- INITIALIZE GLOBAL MATRIX TO ZERO IF IT 15 7D BE ASSEMBLED 
20 IF(IKT.£0.0)60 70 30 
CALL INIT(ZERQ, NXG, VKGS) 
CALL INIT(ZERO, NED, VKED) 
IF (NSYM. EQ. 1) CALL INIT(ZERO, NKG, VXBZ) 
C———-- STORE LOADS IN THE RESIDUAL VECTOR 
30 CALL MAJ(XPAS, ZERO, NEO, VEG, VRES) 
c ASSEMBLE RESIDUAL VECTOR, AND EVENTUBLLY THE SLOBAL MATRIX 
CALL ASNEWT(IKT, KLD, VDIMP, KLOCE, VODRE, VORNS, VPIE=, ANE, VXE, VEE, 
{ KGS, VKGD, VKGI, VDLG, VDLE, VRES) 
(---—-- SOLVE 
CALL SOL(VKGS, VKGD, VKG2, VES, KLD, NEQ, M2, 147, 1, ASY™, ENEI3) 
IF CIKT. EQ. 1. AND.M.GT. 1) CALL PRPVTS(VXED) 
(-——-——_ UPDATE THE SOLUTION NEW 
CALL MAJ (OMEGA, UN, NEQ, VRES, VDLG) 
RETURN 
END 





vi 
% 
=~ 4 
x 


Dies, 


SUBROUTINE ASNEWT (ZKT, XLD, VDIM9, (LODE, VIGRE, V2aNz, VIREE, 
1 KNE, VKE, VEE, VKGS, VKGD, VKGI, V6, VOLE, VRES) 


ee es ee ee ee ee ee ee a a ee ee ee a eS eee i ae ee ee eS 
me er mc ee ee me ee wee eee me ie ee eee ie eae ae 


C TO ASSEMBLE THE RESIDUALS AND THE GLOBAL MATS IX (iF IKT EG, f) 


C WHILE LOOPING GVER TRE EL=H=ENTS ASNE 
c (FOR THE NEWTON-RAPHSON METHOD) 
a 


IMPLICIT REAL¥8(A-H, 0-2) 
COMMON/ELEM/NELT, NNEL, NTPE, NGRE, MZ, NIDENT, MNULL 
COMMON/ASSE/NSYM, MFILLR (3) 
COMMON/RESO/NEG, NFILLR(2) 
COMMON/RGDT/IEL, ITPE, ITPEL, IGRE, IDLE, ICE, IPANZ, IDREE, INEL, IDES, 226 
t , ICOD, NULL (3) 
COMMON/ES/M, HR, 2,41, MZ, MDUMMY (8) 
DIMENSION KLD(#) , VDIMP(#) , KLOCE (+), VCORE (#), VPRNE (#) , VEREE(#), 
{  KNE (8), VKE Ce), VFE (#)  VABS (4), VXSD (#) , VAG2 CH) VES), VOLE CH), 
2 VRES(#) 





C-— 
C—-—— REWIND ELEMENT FILE M2 RSNE 19 
REWIND MZ 
LOOP OVER THE ELEMENTS 
DO 40 IE=1,NELT 
C—-—--- READ AN ELEMENT 
CALL RDZLEM (M2, XLOCE, VCORE, VARNE, VPREE, KNE) 


C 








c EVALUATE INTERPOLATZON FUNCTIONS IF REQUIRED 
IF (TPE. EQ. ITPE1) $0 70 16 
ICOD=2 
CALL ELEMLB (VCORE, VORNE, VPREE, VOLE, VXE, VFE) 

c FIND THE D.0.F. OF THE ELEMENT FROM VEG 





10 CALL DLELM(KLOCE, VEG, VDIMP, VDLE) 
C------~ CALCULATE ELEMENT RESIDUALS AND CHANGE THEIR SIGN 
ICOD=6 
CALL ELEMLB (VCORE, VORNE, VOREE, VOLE, VE, VEE} 
DO 20 I=1, IDE 
20 9 VPE(I) =-WFE(1) 
C————-- EVALUATE GLOBAL MATRIX 
IF{IKT.EQ.0) 80 TO 30 
ICOD=4 
CALL ELEMLB(VCGRE, VORNE, VPREE, VDLE, VKE, VFE) 
c ASSEMBLE THE RESIDUALS AND THE GLOBAL MATRIX 
30. CALL ASSEL (IAT, 1, IDLE, NSYM, XLOCE, XLD, VKE, VFE, VASS, VSD, VXGI, VRES) 
40 —‘ ITPEL=ITPE 
RETURN 
END 





oe 


SUBROUTINE INIT(X,N, V) 


—-— SS LS cS co ED co ce ce ese eee a ea ee mse See i se 
tS A a a a ey ee ee ee ee Se ee eS ES Se eee 


C INITIALIZE VECTOR V TO VALUE X 


ee ee ee eee 
mee Smee mmf maf SES em ts ce cm se ee ce me cm ee em ee a Se eS 


IMPLICIT REAL #8 (G-H, 0-2) 
DIMENSION V(¥) 


ae er a ae er a eee ee ee a a ee ee ec a ee a a a ea en a ae Sees tn aces 
DO 10 I=1,N 

10 -V(I)=X 
RETURN 
END 


SUBROUTINE MAJ(X1, X2, N, Vi, V2) 


C EXECUTE THE VECTOR OPERATION: Ve=XieV! + AeeVe 
C Xi,X2sSCALARS Vi, Ve:VECTORS 


IMPLICIT REAL#B(A-H, 0-2) 
DIMENSION Vi (#), V2(#) 

en a ee pene ees a a eee 
DO 10 I=1,N 

10 VEC) =X44V4 (1) 4X282 (1) 
RETURN 
END 


SUBROUTINE NORME(N, VDEL, V, XNURM) 


IMPLICIT REAL#G(A-H, 0-2) 
DIMENSION VDEL (#),V(#) 
DATA 2ERO/0. DO/, UN/1.DO/, FAC/1.D-3/ 
SORT (X) =DSORT (X} 
O-—-- +--+ - -- + es + = + = 5 5 5 5 ee 
C1=ZERO 
C2=2ERO 
DO 10 I=1,N 
Ci=C1+VDEL (1) #VDEL (1) 
10 C@=C24V(1) #V (1) 
C=C1¥F OC 
IF(C2.LE.6) C2=UN 
XNORM=SQRT (C1/C2) 
RETURN 
END 


Deo 


SUBROUTINE BLr=¥ 


Cs=sssSSse==sSSSse—ane ee Hae SS — = = ee eee eee SS SSS SSS SS asses ee See 
C TO CALL BLOCK + TEMP? 

C ~*~ TQ SOLVe AN UNSTEADY SRUSLEM {_cNEAR OR MGT) 

See ee ee ee SSS SSS SS SST SS SS SSS SSS SSS SSS SS SST ESTES 


IMPLICIT REAL#B(A-H, O-Z) 
CHARACTER#4 TBL 
COMMON/ELEM/NULL (4), 4E, MNULL (2) 
COMMON/ASSE/NSYM, NXG, NXE, NDLE 
COMMON/RESO/NEG, NFILLR(2) 
COMMON/NLIN/EPSDL, XNGRM, OMEGA, XPAS, DOAS, DPASO, NPS, IPAS, NITER, 
{ ITER, IMETH 
COMMON/ES/M, MR, MP, M1, 42, "2, 44, MDUYMY (5) 
COMMON/LOC/LCORG, LOLNC, LNEG, LDI2, LPRNG, LPRES, LLD, LLOCE, LCORE, LNE, 
t LPRNE, LPREE, LDLE, LXE, LFE, LKGS, L¥GD, LXG!, L°S, LRES, LDLG, UME, 
{ LDLEO,LDLGO, LFG0 
COMMON VA(1) 
DIMENSION TBL (13), IN(2), XIN(3) 
C+++ THIS IS COMMENTED OUT BECAUSE OF AN MS FORTRAN COMPILER 
C+++ BUG WHICH WILL NOT INITIALIZE $LARGE ARRAYS. THIS G2247 
C++ IS NOW INITIALIZED BY A CALL TO A DUMMY SUBROUTINE 
C+++  INITBL WHICH EXISTS SOLELY 70 INITIALIZE THIS ARIAY 


C 

C DATA TEL/*KGS HOD ',°KGI *,°FG ',9KE 9,9FE 4 RES, 
C # ‘DLE’, 'DLG ', ME *,*DLEO',DLGO,*FGO */ 
c 
c 


HERE IS THE CALL TO GET ARGUND THE COMPILER BUG 
CALL INITBL(TBL, ! TEMP?) 
c 
C++ ALL OF THIS IS TO GET AROUND THE MICROSOFT 
C++ COMPILER BUG 
c 
(oe ee eee on een rn en ee en 5s en wn en rn ne en ne 2 oe ee ene 
IF (M1.EQ.0) MI=R 
IF (M2,€0.0) M2=ME 
WRITE (MP, 2000) » 
2000 FORMAT(//? UNSTEADY SOLUTION (M=!, 12,1)! /1X,23(=")) 
c—- TO ALLOCATE SPACE 
IF (LKGS. EO. 1) CALL ESPACE (NXG, 1, TBL( 1), LKGS) 
IF (LKGD.EQ, 1) CALL ESPACE (NER, 1, TBL(2), LRGD) 
IF (NSYM. EQ. 1.AND.LKGI.EG. 1) CALL ESPACE(NXS, 1, TEL (3), LXST) 
IF(LFG.EG.1) CALL ESPACE (NEQ, 1. TRL(4), LEG) 
IF(LRE.ED.1) CALL ESPACE (NKE, 1, TBL(S), -¥=) 
IF(LFE.EG.1) CALL ESPACE (NDLE, 1, TSL6), =) 
IF(LRES.EG. 1) CALL ESPACE (NED, t, TBL(7),LR=S) 
IF(LDLE.EQ. 1) CALL ESPACE (NDLE, f, TEL(B) ,L9LE) 
IF(LDLG.EQ.1) CALL ESPACE (NEO, :, TEL(9) , LOLS) 
IF (LE. EQ, 1) CALL ESPACE (NKE, , TEL(10), LYE) 
IF (LDLEO.EQ.1) CALL ESPACE (NDLE, 1, THL(1) LDL) 
IF(LDLGO.EO.1) CALL ESPACE (NEO, 1, TBL(12), LDLGO) 





23:0 


IF (LFGO.EQ.1) CALL ESPACE (NEG, !, TEL (13), 592) 
C—----- 10 EXECUTE THE BLOCK 

CALL EXTEMP(VAILCORG) , VACLDLNC), VO{LDIéS), YACLNEG) Vat), 
1 VA(LLOCE) , VACLCORE), VA(LPRNE), VA(LPREE) VQ(LNE) VALLE} VEiLYE}, 
é VA(LFE) , VACLDLE) ,VA(LKGS) , VACLXGD) , VA(LK3I) , VA(L25), va4_9E8), 
3 VA(LDLS) , VA(LDLEO), VA(LDLGO) , VA(LESO) ) | 

RETURN 

END 


SUBROUTINE EXTEMP(VCORG, KDLNC, VDIMS, ANE, 4D, XLCLZ, VOCS, VORNE, 
1 VPREE, KNE, VKE, VME, VEE, VOLE, VKSS, VKGD, VXGT, VES. VRES, VOLS, 
2 VDLEO, VDLGO, VFS) 


Se mc me mm am eg nc cm ems rc me mp RR en em em me ee ee ee 
rect RE cm erm ecm i ee Se 


C TQ EXECUTE BLOCK ' TEMP? 
C TO SOLVE AN UNSTESDY PROBLEM (LINEAR OR NOT) 


IMPLICIT REAL#8(A-H, O-Z) 
COMMON/RESO/NEQ, NFILLR (2) 
COMMON/COND/NCLT, NCLZ, NCLNZ 
COMMON/ASSE/NSYM, MFZLL2(3) 
COMMON/NLIN/EPSDL, XNORM, OMEGA, XPAS, DPAS, DPASO, NPAS, 1255, NITER, 
! ITER, IMETH 
COMMON/ES/M, MR, 42, M1, M2, M3, M4, MDURMY (5) 
DIMENSION VCORG(#), KDLNC(#) , VDING(#) , NEG (#) RED (#) XLOCE (4), 
1 VCORE (#) , VPRNE(#), VPREE (4)  XNE (4), VXE(#), VME (4H) , VEZ (4), VDLEL¥), 
2 VKGS(#) , VAGD (4), VAGI (#), VFG(#) , VRES (#), VDLG 1), VOLEO (4), 
3 VDLGO(#), VFGO(#) 
DATA ZERO/0.DO/,UN/1.D0/ 
oe er ee 2 eee = Se a a cae a a ah a cl a nt Sas ns a ca ca mk ed ee a aca 
DPASO=ZERO 
XPAS=ZERO 
IPAS=0 
C-—---— READ INITIAL D.0.F. ON FILE §3 
IF(M3.£0.0) GO 705 
REWIND ¥3 
READ(M3) (VDLG(I), J=1,NEQ) 
CALL MAJ(UN, ZERC, NEG, VDLG, VDLGO) 
C-—-—— SAVE THE REFERENCE LCAD CONDITIONS 
5 _ CALL MAJ(UN, ZERO, NEG, VFG, VFO) 
C-—-—-— READ A CARD DEFINING A SET OF IDENTICAL STEPS 
10 READ(M1, 1000) DPAS, Ii, 12,13, X:, X2 
1000 FORMAT(F10. 0, 315, 2F10. 0) 
IF(DPAS.EO. ZERO) GO TO 140 
IF (11.67.0) NPAS=I1 
IF(12.67.0) NITER=I2 
IF (13.67.06) IMETHEI3 
IF (X1.G7. ZERO) EFSDL=K1 
IF (X2.NE. ZERO) OMEGA=X2 
c 
C-—---— LOOP GVER THE STEDS 


eu: 


DO 130 IP=1, NPAS 

CALL INIT(ZERO, NEQ, VFS) 

IPAS=IPAS+! 

XPAS=XPAS+DPAS 

WRITE (4P, 2000) IPAS, DPAS, XPS, \I7ER, IMETH, ZPSDL, OMESA 
2000 FORMAT(/1X,$3('-"), STEP NUMBER (IPAS) 33 I5// 


1 Lay? INCREMENT (ORGS) =! ; eicoas 
€ 14X, TOTAL LeveL (XPAS) =! Eig. S/ 
3 14X, "NUMBER OF LTSRATIONS (Ni TSR) =" 5 ba 
4 14X, METHOD NUMBER CNET) aie 
a 14X,* TOLERANCE (EPSDL)=", 12, a/ 
6 14X, COEFFICIENT ALPHA (OMEGA) =", 234.57) 
C 
C---——-_ LOGP OVER EQUILIBRIUM ITERATICNS 
C 
DO 110 ITER=1,NITER 
C———— Chute THE SMETHUD 
IF(IMETH. 67.3) 60 10 cO 
C—----—- EULER TYPE METHODS 
CALL EULER(VCORG, XDLNC, VDIMP, KNEQ, KLD, KLOCE, VCORE, VPRNE, VPREE, 
1 KNE, VKE, VME, VFE, VOLE, VKGS, VKGD, VKGI, VFG, VRES, VDLG, 
2 VDLEO, VDLGO, VFGO) 
GQ TO 100 
C-——-——_ OTHER METHODS ...... 
20 = CONTINUE 


WRITE (HP, 2010) IMETH 
2010 FORMAT(? ## ERROR, METHOD:’,13,! UNKNOWN!) 
STOP 
C-———- COMPUTE THE NORM 
100 CALL NORME(NEQ, VRES, VDLG, XNORN) 
IF(M.GT.0) WRITE(MP, 2020) ITER, XNORM 
2020 FORMAT(SX, ITERATION (ITER) :?,13,? NORM (XNORM)=", £12, 5) 
IF(M.GE.2) CALL PRSOL(KDLNC, VCORG, VDIMP, 4NEG, VOL) 
IF(XNORM.LE.EPSDL) GO TO 120 
{10 CONTINUE 
C-----—- END OF STEP 
120  DPASO=DPAS 
CALL MAJ(UN, ZERO, NEG, VDLG, VDL6O) 
CALL PRSOL(KDLNC, VCORG, VDIMP, KNEQ, VOLS) 
130 CONTINUE 
60 TO 10 
C-—---—- SAVE THE SOLUTION ON FILE M4 
140 IF(M4.NE.O) WRITE(M4) (VDLG(I), I=1, NEQ) 
RETURN 
END 


2302 


SUBROUTINE EULER(VCORG, KDLNC, VDIM®, 4NET, 4B, XLOCE, VCORE, VARNZ, 
{ VPREE, KNE, VKE, VME, VFE, VOLE, VSS, 430, VXS2, VFS, V9ES, VOLE, 
2 ¥YDLEO, VDLGO, V=60) 


— ee a Se EER oped SE SES A SP SE SE a Ge ee Sn nS Se ee ee er ee ee eee ee ae ee 
a ne Ce a oe ee es Se ee ee ee ee ee eee See eee ee ee ee ee 


C ALGORITHM FOR EULER TYPE METHODS (IMPLICIT, EXPLICIT CR BOT 
Z ACCORDING 10 OMEGA) FOR LINEAR OR NON LINEAR PRIZ_L=ME, 

C THE NON LINEAR PROBLEM iS SOLVED PY A NEWTON-RASHSSS 

C METHOD 

C IMETH. EG. 1 STANDARD NEWTON-RASHSON 

C IMETH.EQ.2 K 1S CONSTANT 

C IMETH.EQ.3 K IS RECOMPUTED AT THE BEGINNING OF EAC STz2 


IMPLICIT REAL#*8 (A-H, 0-2) 

COMMGN/ASSE /NSYM, NKG, MFILLR (2) 

COMMON/RESO/NEQ, NFILLR (2) 
COMMON/NLIN/EPSDL, XNORM, OMEGA, XPAS, DPAS, DPASO, NPAS, (PAS, NIVER, 
1 ITER, IMETH 

COMMON/ES/M, MR, MP, MDUMMY (10) 

DIMENSION VCORG(#) ,KDUNC(#) , VDIMO(#)  ANEQ(#) , ALO (+), XLOCE (#), 
1 VCORE (#), VPRNE (#), VPREE(#) ,KNE(#) , VRE (#) , VME (#)  VFEG#, 
2 VDLE(#), VKGS(#) , VX5D(#) , VKGI(®) , VFS(#), VacS(#), VOLG(#), 
3 VDLEO(#), VDLGO(#) , VFGO(#) 

DATA ZERG/0. DO/, UN/ 1. D0/ 


(-—---— DECIDE IF GLOBAL MATRIX IS TO BE REASSEMBLED 
IKT=0 
IF (IMETH.EQ. 1) GO TO £0 
IF (DPAS. NE. DPASO. AND, ITER.EQ. 1) 60 TO i0 
IF (IMETH. £Q. 3. AND. ITER. EQ. 1) 60 TO 10 
60 TO 20 
{0 —«IKT=! 
(-————_ INITIALIZE GLOBAL MATRIX TO ZERO IF NECESSARY 
20 IF(IKT.EQ.0) 60 TO 30 
CALL INIT(ZERO, NXG, VXGS) 
CALL INIT (ZERO, NEQ, VKGD) 
IF (NSYM, EO. 1) CALL INIT(ZERG, NKS, VKGI) 
(—----- ASSEMBLE RESIDUALS AND GLOBAL MATRIX IF REQUIRED 
30 CALL MAJ(UN, ZERD, NEO, VFGO, VRES) 
CALL ASEULR(IKT, VCORG, KDLNC, VDIMP, KNEQ, XLD, KLOCE, VCORE, VPRNE, 
1 VPREE, XNE, VKE, VME, VFE, VDLE, Y4GS, VKGD, VASI, VFS, V2E5, VOLS, 
2 VDLEO, VDLGO, VFGO) 
C1=UN 
IF (ITER. GT.4) CL=C1-CMEGA 
DO 40 1=1,NEQ 
40 - VRES(1) =DPAS*(VRES(1) -D14V5(1)) 
c SOLVE 
CALL SOL (VKGS, VK6D, VKGI, VRES, MLD, NEG, MP, IXT, 1, NSYM, ENERG) 
UPDATE THE SOLUTION 
CALL MAJ(UN, UN, NEQ, VRES, VDLS} 
RETURN 
END 





C 
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SUBROUTINE ASEULA(IKT, VCORS, YNC, VDIMS, XNEG, 4.5, 4902, VCORE, 
{ YPRNE, VPREE, KNE, VKE, VME, VFE, VDLE, VASS, VGD, VSI, VEG, VRES, 
2 VDLG, VDLEO, VOLSO, VFa0) 


C TO ASSEMBLE THE RESIDUALS AND THE GLOBAL MATRIX ( 
C WHILE LOOPING CVER THE ELEMENTS (FOR EULER METHOD) 
IMPLICIT REAL#B(A-H, 0-2) 
COMMON/ELEM/NELT, NNEL, NTPE, NGRE, ME, NIDENT, MAULL 
COMMON/ASSE/NSYM, MFILL2(3) 
COMMON/RESO/NEQ, NFILLR(2) 
COMMON/RGDT/IEL, ITPE, ITPEL, ISRE, IDLE, ICE, [PRNE, IPREE, INEL, 1D=G, 7PG 
{ , ICOD, NULL (3) 
COMMON/NLIN/EPSDL, XNO2M, OMEGA, X2AS, DPAS, D2ASO, NPAS, IFAS, NITER, 
1 ITER, INETH 
COMMON/ES/M, MR, MP, M1, M2, MDUMMY (&) 
DIMENSION VCORG(#), KDLNC (#) , VDIMP(#), XNEQ(#)  RLD(#) KLCCE(#), 
t YCORE(#), VPRNE (#) , VPREE (#)  KNE (#) , VKE (#) , ViHE(#), VFE(#) , VOLE (#), 
2 VKGS(#), VAGD(#) , VAGI (#), VEG (4), VRES(#) , VOLG(#), VOLEOC#), 
3 VDLGO(#) , VFGO(#) 
DATA UN/1.D0/ 
(pn a 8 a ee ee ee tnt te + ne ee ree 
CC=DPAS*CMEGA 
IFE=0 
IF (ITER. 67.1) IFE=t 








C REWIND ELEMENT FILE (ME) 
REWIND Me 

c LOOP OVER THE ELEMENTS 
DO 30 IE=1,NEL7 

c READ AN ELEMENT 





CALL RDELEM(M2, XLOCE, VCORE, VPRNE, VERZE, KNE] 
C————- EVALUATE INTERPOLATICN FUNCTIONS IF REQUIRED 
IF(ITPE.EG. ITPEL) 60 TC 10 
icoD=2 
CALL ELEMLB(VCORE, YPRNE, VPREE, VDL, VKE, VEE) 
c FIND ELEMENT D.0.F. FROY VEG 
{0 CALL DLELM(KLOCE, VDLG, VDIMP, VDLE) 
c COMPUTE THE RESIDUAL K.U. 
ICGD=6 
CALL ELEMLB(VCORE, VPRNE, VOREE, VDLE, VXE, VEE) 
C—----- COMPUTE MATRIX 
1cOD=5 
CALL ELEMLB(VCGRE, VPRNE, VPREE, VDLE, VME, VEE) 














C COMPUTE MATRIX K IF REGUIRED 
IF(IKT.EG.0) 60 TO 15 
ICOD=3 
CALL ELEMLB (VCORE, VPRNE, VOREE, VILE, VKE, VEE) 
c RESIDUALS GF THE FIRST ITERATION IN EACH STED (LINEAR) 


{5 IF(ITER.GT.1) GO 70 20 
CALL ASSEL(O, 1, IDLE, NSYM, KLOCS, XLD, VXE, VE, VXGS, VXGD, VAG, VFS} 
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GO TO 60 
C-——— RESIDUALS AFTER FIRST ITERATION 
20 CALL DLELM(KLOCE, VDLGO, VDIMY, VDLEG) 
DO 30 I=t, IDLE 
VDLE(1)=(VDLEO(1)-VDLE(T)) /DPAS 
30 = VFE( 1) =-QEGAXVFE (7) 
C PRODUCT 4. OU 
VFE (1) =VFE(1) +VME C1) #VDLE (1) 
TI=1 
DO 50 J=2, IDLE 
Ji=J-t 
DG 40 [=1, Jl 
TI=IT+t 
VE CT) =VFECI) +VME (TI) #VDLE GS) 
VFE(J)=VFE (J) #VME (11) #VDLE (2) 
Tl=]T+1 
VFE (J) =VFEC I) 4VME (21) ¥#VDLE (J) 
MATRIX M + DXAS. OMEGA. X 
60 IF (IKT.EQ.0) 60 TO 80 
TI=0 
DO 70 I=1, IDLE 
DO 70 J=I, IDLE 
TI=Ii+l 
70) = VREC TI) =VKE CTI) #CC+VME (TT) 











C ASSEMBLE THE RESIDUAL AND THE GLGEAL MATRIX 

BO CALL ASSELCIXT, IFE, IDLE, NSYM, XLOCE, KLD, VAE, VF=, VX8S, VA5D, VAB!, 
{  VRES) 

90  ITPEL=ITPE 
RETURN 
END 
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SUBROUTINE ELVALP 


C TG CALL BLOCK *VALP! 
C TG COMPUTE EIGENVALUES AND EibcXVECTORS BY THe SUBSPACE 
C ITERATION TECHNIQUE 


IMPLICIT REAL #8 (A-H, 0-2) 
CHARACTERS TRL 
COMMON/ELEM/NULL (4), ME, MNULL (2) 
COMMCN/ASSE/NSY", NXG, NXE, NDLE 
COMMON/RESO/NEQ, NFILLR(2) 
COMMON/VALP/NITER, NMDIAG, SPSLB, SHIFT, NSS, NSWM, TOLJAC, NVALS 
COMMON/ES/M, MR, MP, M1, M2, MOUNMY (8) 
COMMON/LOC/LCORG, LDLNC, LED, LD2MP, 1 29NS, LDREG, LLD, LLOCE, LCO3E, LNE, 
{ LPRNE, LPREE, LDLE, LKE, LFE, LKGS, UKGD, LXSI, LFS, LRES, LDLG, L DUMMY (4) 
COMMON/TRVL/X1, X2, X3, 11, 12, 23, 14, 25, ADLYMY (525) 
COMMON VA (1) 
DIMENSION TBL{20) 
DATA 2ERO/0. D0/ 

C+++ THIS IS COMMENTED OUT BECAUSE OF AN MS FORTAGN COMDIL=3 

C+++ BUG WHICH WILL NOT INITIALIZE $LARGS ARRAYS. THIS ARREY 

C++ IS NOW INITIALIZED BY A CALL TO A DUMMY SUBROUTINE 

CH+  INITBL WHICH EXISTS SOLELY TD INITIALIZE THIS ARRAY 


c 
C DATA TBL/1KGS ','KGD ',°MGS ,'NGD ','FG tj1KE YIPE HME, 
C of URES ?,DLG ',9P ',SLAMBY, LAME? 32 TDED YS KSS 1 HSS 
C of MVE YVX 1,9V2 17 
E 
c HERE IS THE CALL TO GET AROUND THE COMPILER BUG 

CALL INITBLITBL, 'VALP") 
c 


C+++ ALL OF THIS [5 TO GET SRGUND THE MICRUSO-T 
ae ae COMPILER EUG 


IF (M1.E0.0) MI=KR 

IF (M2, E0.0) M@=iE 

READ{M1, 1000) If, 12, X1, X2, 13, 14, 15,X3 
1000 FORMAT (215, 2F10.0, 315, !F10. 0) 

IF{I1.NE.O) NVALP=I! 

IF (12, NE.0) NITER=I2 

NSS=13 

IF{14,.NE.O) NMDIAG=14 

IF{I5.NE.O) NSWM=I5 

IF {X1.NE. ZERO) EPSLBSX! 

IF (X2,NE. ZERO) SEIFT=¥ 

IF (X3. NE. ZERG) TOLJAC=X3 

IF(NSS.NE.G) GO 70 10 

NSS=MINO (NVALP+8, 24NVAL} 

NSS=MINO (NSS, NEG) 
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SS 


Ce ee OS EEE —<“«€ ee ee 


10 CONTINUE 
WRITEIMP, 2000) , WOL2, AITES, A¥DIAS, 225.8, SHIFT, NSS, NSWM, TOLSAC 
2000 FORMAT(//! SUBSPACE ITESATION (%=",2E,7)8/E 1, 2607 S42/ 
{1 15X,*NUMBER GF DESZSED EIGENVALLES (NALD) =), 112/ 
2 15X,'MPX. NUMBER OF ITERATIONS PES¥ITT=ED (NITER) Ss! 212/ 
3 15X, INDEX FOR DIAGONAL MATRIX (NMS IAB) S!  022/ 
4 15X, CONVERGENCE TOLERANCE ON EIGENVALLES = (EPSLE=!,2/2,5/ 
5 15X, SHIFT (SHIFT) =", 212.5) 
6 15X, SUBSPACE DIMENSION (NSS)=?, 7i2/ 
7 15X,"MAX. NUMBER OF ITERATION IN JACOBI (NSW) =, 152/ 
8 15X, CONVERGENCE TOLERANCE IN JACOBI (TOLJAC) =", 1£42.5/) 
IF (NVALP, LE. NEG. AND.NSS.LE.NEG) 60 TO 26 
WRITE (MP, 2010) 
2010 FORMAT(//!—-ERR0R-—- NVALP OR NSS SREATER THAN NEQ’,/, 
{ 1——-STOP EXECUTION-—-" ) 
60 T0 30 


0 


30 


IF(LKGS.EQ.1) CALL ESPACE (NKG, 1, TELL), LKBS) 
IF(LKGD. £0. 1) CALL ESPACE (NEO, 1, TEL (2), LKGD) 

CALL ESPACE (NKG, 1, TBL(3), LMGS: 

CALL ESPACE (NEG, 1, TRL(4), HGS) 

IF(LFG. 60.1) CALL ES9ACE(NEQ, 1, TBL(S), LFS) 

IF(LKE.EQ.1) CALL ESPACE (NKE, 1, TBL(6), LKE) 

IF(LFE.EQ.1) CALL ESPACE (NDLE, 1, TBL(7),LE= 

IF(LDLE.E0.1) CALL ESPACE (NDLE, 1, THL (8), LOE) 

IF (LRES. ED. 1) CALL ESPACE (NES, !, TEL (9), LRES) 

IF(LDLG.E0.1) CALL ESPACE(NES, 1, THL (10), LOLS} 

CALL ESPACE (NEGENSS, 1, TEL (11), LVEC) 

CALL ESPACE (NSS, 1, THL (12), LLAYE) 

CALL ESPACE (NSS, 1, TBL(13),LL AM!) 

CALL ESPACE (NSS (NSS+1)/2, 1, TEL (16), LXSS) 

CALL ESPACE (NSS*(NSS+1) /2, 1, TEL (17), L"SS) 

CALL ESPACE (NEG, 1, TEL(18) LVL) 

CALL ESPACE (NSS*NSS, 1, THL(!9), 2X) 

CALL EXVALP(VAILLD), VA(LDIMP), VO(LLOCE) , VA(LCORE) , VACL BANE), 
{ VAILPREE), VA(LNE), VA(LFS) , VACHE), VA(LXGS) , VOULXBD) , VA(L=S}, 


2 VA(LCORG) , VA(LDLNC) , VA(LNEG) , VA(LRES) , VA(LOLE), VA(LDL6), 


3 VA(LMGS), VA(LIGD) , VA(LVEC) , VACLLAMB) , VACLESL)  VA(LK33) , VG (_¥85) 


4 ,VA(LV1), VA(LX), NEG, NSS) 


RETURN 
END 
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SUBROUTINE EXVALB(XLD, VDIMS, GCE, VOGRE, VPINE, Y2REE, «AZ, VEE, YE, 
VKGS, VKGD, VES, VCOSG, ADLNC, KNED, VES, VOLE, VOLE, VM3S, vrs, 
VEC, VLAMB, VLAM1, VSS, V¥SS, V1, VX, NED, NSS} 


chee 


C TG EXECUTE BLOCK *VAL?? 

C TO COMPUTE EiGENVALUES AND EIBENVELTORS BY SUBSPACE 
C iTerATION 

C (iP NVALPLEO.L iNVeRSE PTERATION METHOD) 


IMPLICIT REAL#B(A-H, 0-2) 
COMMON/ASSE/NSYM, KKG, NKE, NDLE 

COMMON /VALP/NITER, NMDIAG, SESS, S727, NGS! NSW, THLAC, NEL 
COMMON/ES/™, MR, 4D, MOLIMMY (10) 

DIMENSICN KLD(#) , VDIMD (4), XLOCE (#), VCORE (4), VIQNE (4) VIREE (4) , 
1 KNE(#), VE (#), VRE (#), V4GS (4), VAGD (#), VEG (#), VOGRG (4), ADENC(#), 
2 KNEQ(#), VRES (4), VDLE(#) VOLS Ce) , VSS (#)  VHGD LH), VEDINER, #), 
3 VLAMB(#), VLAME (4), VASS(#), VMSS#), VE Ce}, VERS, 4) 

DATA 2ER0/0.DO/, UN/1. CDO/, GRAND/$. OD32/ 

ABS (X) =DABS (X) 


C-——-— PRELIMINARY COMPUTATIONS 
c 
(-----— ASSEMBLE K6 AND #6 
CALL ASKG(KLD, VDIMD, XLOCE, VCORE, VPANE, VPRCz, KNE, YE, VES, VES, VUE, 
{ VKGI, VFG, VDLE, VRES) 
CALL ASMG(KLD, VDIMP, XLOCZ, VCORE, VOSNE, VDREE, KNE, XE, VEE, ViAGS, 
{ VMGD, VMS, VFG, VDLE, VAES) 
C-——-— TRIANGULARIZE x6 
CALL SOL (VK6S, VAGD, VKGI, VES, XL0, NEG, M9, 1, 0, 0, ENERS) 
LOAD VECTOR EQUAL TO DIAGONAL OF ™ 
CHAX=ZERO 
ICONT=0 
DO 10 ID=1,NEG 
C=SRAND 
(-——— CHECK ZOR ZERO DIAGONAL TERY IN VED 
IF(VMGD(ID) £0, ZERG) GO TO 5 
ICCNT=ICONT+! 
C=VKGD(ID) /VMGD(ID) 
5 ViID)=e 
IF(C.GT.CMAX) CMAX=C 
VEC (ID, £)=V4SD (1D) 
DO 10 JS=2,NSS 
10 VECCID, JS)=ZERO 


. 











c CHECK IF SUBSPACE DIYENSION 13 EQUAL TO MASS 0.0.5. 
IF(ICONT.LT.NSS) GO 70 250 

C- UNIT LOAD VECTORS CORRESOGNDING TO MIN, OF 

f K(T, T/T, 2) 
DO 30 J5=2, NSS 
C=CMAX 


23:3 


DO 20 ID=1,NEG 
IF(W1(ID).67.C) GO 70 26 
=V1 (1D) 
LI=ID 
20 CONTINUE 
Vi CID =CMAX 
VEC (II, JS)=UN 
30. VLAMB(JS)=UN 
VLAMB (1) =UN 





IF (NVAL®, EG. 1) NSS=i 
(-—-—-- INVERSE ITERATION IF NVALD=! 
C- START ITERATIONS LOOP 
c 

ITERM=0 


LTMAX=NITER+S 
DQ 200 ITER=i, iTMAX 
COMPUTE RITZ VECTORS 
[i0=0 
DO 80 JS=i1,N55 
110=110+JS 
DO 40 iD=1, NEG 
40 Vi (ID) =VeCi1d, JS) 
CALL SOL (VAGS, VAGD, VAGT, Vi, Kid, NEG, MAO, 1,0, SVERG: 
C——---- CALCULATE TEE PROZELDTION OF K 
TI=1i0 
DG 60 15=JS, NSS 
C=ZE80 
DG SO I[D=1,\c& 
SC+VICID) #VEC(TD, 25) 
VKSS (11) =C 
T1=1I+15 
DO 70 ID=1,Ne0 
70 VeC (iD, JS)=vit (iD) 
80 CONT INUE 
fa FALOULATS ire YREJEC IGN OF X 
T1d=0 
OO i2d JS=1,NS5 
T{O=110+J5 
DO 85 ID=i, Ned 
85 Vi (ID) =ZERO 
CALL MULAU(VMGS, VED, VYGS, ALD, VECi i, JS), NEG, G, V!) 
T=110 
DO 100 [5=J5, NSS 
C=ZERG 
DO 90 ID=1, NEG 
30 =C+Vi (1D) #VEC (ED, 75) 
IF CITERM.G7.0) GU TG igo 
VMSS(11)=C 
100 = TT=I[1+1S 
DO 1G iD=1, NEG 
110 )=—- VEC (CID, J5)=Vi (1D) 





C-- 
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120 CONTINUE 
IF (NSS.GT.{) 60 70 125 
VLAML (1) =VKSS(1) /VMSS £3) 
60 TO 165 
c CALCULATE EIGENVGLUES IN THE SUBSSACE 
125 CALL JACOBI (VKSS, VMSS, NSS, NSW, TELJAC, Vi, VLAML, Vi) 
(---—— NEW LOAD VECTOR 
DO 160 ID=1,NEQ 
DO 130 JS=1,NSS 
130 Vi (JS) =VEC(ID, JS) 
DO 150 JS=1, NSS 
C=ZERO 
DO 140 IS=1,NSS 
140 C=C+V1 (1S) #VX (3S, JS) 
{50 VEC(ID, JS) =C 
160 CONTINUE 
{65 CONTINUE 
(-——— PRINT THE ITERATICN VALUES 
IF(M.LT. 1) 60 TO 180 
WRITE(MP, 2000) ITER 
2000 FORMAT(//)....- ITERATION ', IS/) 
DO 170 IS=1,NSS 
WRITE (MP, 2010) IS, VLAM! (15) 
2010 FORMAT(/? EIGENVALUE NO. °,15,* =7,512,5//! ZIGEWVECTOR:!) 
170 CALL PRSOL(KDLNC, VCORG, VDINP, KNEG, VEZ (1, 18); 








C CHECK FOR CONVERGENCE 
180 IFCITERM.G7.0) 60 TO 210 
C=ZERG 
TEX=0 


DO 190 IS=1,NSS 
C1=ABS( (VLAML (1S) -VLAMB (TS) ) /VLAMB(IS) j 
IF(C1.67.C) C=Ct 
IF(CL.LE.EPSLE) JEX=IEX+1 
190 CONTINUE 
WRITE(MD, 2015) ITER, C, IEX 
2015 FORMAT(? ITERATION ’,14,' MAX, ERROR=',£9.1,' EXSCT SIGENVALUES:? 
t, 14) 
IF(IEX.GE.NVALP) ITERM=1 
NON CONVERGENCE 
IF (ITER. LT.NITER. OR. ITERM.EG. 1) GO TO 195 
WRITE(MP, 2020) NITER 
2020 FORMAT(? #* NON CONVERGENCE AFTER ',75,? ITERATIONS?) 
ITERM=1 
(------- SAVE THE EIGENVALUES 
195 DO 200 IS=1,NSS 
200 VLAMB(IS)=VLAML (1S) 


C-- 





C 

Ca 

C 

C--—--—- ARRANGE EIGENVALUES IN ASCENDING URDER 
e10 IS1=NS5S-1 


240 


C---- 


IF (191.29,6) 80 TG 235 
DO 230 7S=!, 7S: 

I1=15+4 

C=VLAME (1S) 

[1=15 

DO 220 JS=21,NSS 
IFIC.LT. VLArEiJS)) GG To 2a 
C=VLAMB (JS) 

11=JS 

CONTINUE 
VLAME (TT) =VLAMB (1S) 
VLAME{ 1S) =C 

DG 230 ID=1, NEG 
C=VEC(ID, 1S) 

VEC (ID, 1S) =VEC(ID, 11) 
VEC{ID, f1)=C 


—-- PRINT RESULT 


WRITE (MO, 2030) 2723 
FORMAT(/? . . . . CONVEQSENCE IN’, 14.) ITERATIONS? /} 
CONTINUE 

DO 240 I5=1,NVALP 

WRITE(MD, 2010) 15, VLAMB(IS) 

CALL PRSOL(XDLNC, VCDRS, VDIMP, KNEG, VEE (4, 75): 

GO TO 260 

CONTINUE 

WRITE (MP, 2040) 

SORMAT(? 44 NSS IS LARGER THAN MASS 0.0.7.7) 
RETURN 

END 
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SUBROUTINE ASMG (MLD, VOIMP, X_OCE, VOORE, VONE, VORES, ANS, UKE, VEE, 
| YKGS, VKGD, VKBI, VFG, YDLE, VRES) 


Pe a ee ee ee ee ee eee ae i eae ee eee SS eee eee eee eS ee 


E TO ASSEMBLE THE GLOBAL MASS MRURIX (SLSMER™ FUNCTION o) 


ee se ce ee ee ie ee SS ee eS ee ee Sa eS aS Se SS eae ee 
ee Se ee eee ee se ee ee we ee a ee a i ee ae eee eS 


IMPLICIT REAL#B(A-H, 0-2) 
COMMON/ELEM/NELT, NNEL, NTSE, NSRE, ME, NIDENT, MALL 
COMMON/ASSE/NSYM, HEILER (3) 

COMMON/ RESO/NEQ, NFILL 2/2) 


COMMON/RGEDT/IEL, ¢: PE, TTPei, UBRE, IDLE, (EE, 1 PRME, DES i Mi., (See, 225 


t , ICOD, NULL ¢3) 
COMMON/ES/™, #2, M2, M1, #2, MDUMMY (8) 
DIMENSION XLD (+), VDIMP(#) , KLOCE (4), VOGRE (4), VPRNE (4), VEREE(#) , 
t ANE CH), VRE (4), VPE (4), VAGS (4), VAGD (8), VAG (4), VEGI), VOLE (HD, 
2 VRES(#),KEB(!) 
oa - = eee ee 
(———---- REWIND ELEMENT FILE (¥2) 
REWIND M2 
C----—--_ LOGP QVER THE ELEXENTS 
DO 30 If=1,NELT 
(--—----- SKIP COMPUTATIONS IF IDENTICAL ZLEMENTS 
IF (NIDENT. EQ. {.AND.1E.87. 1) SO TO 20 
C-——---- EAD AN ELEMENT 
CALL RDELEM(M2, KLOCE, VCORE, VORNE, VERES, KNE) 
(——----- EVALUATE INTERPCLATION FUNCTIONS IF REGUIRED 
IF (ITPE. EQ, 1TPE!) GO TE 10 
1c0D=2 
CALL ELEMLB(VCORE, VPRNE, VORES, VOLE, VXE, VEE) 
10 ICODE5 
CALL ELEMLB(VCORE, VPRNE, VOQEE, VDLE, VE, V=E) 
PRINT ELEMENT MATRIX 
IF(M.LT.2) 60 TG 20 
IF(NSYM, £Q.0) IKE=IDLE* (IDLE+1)/2 
IF (NSYM, EG.1) IKESIDLE#IDLE 
WRITE(MP, 2000) TEL, (VME (I), I=4, IKE) 
2000 FORMAT(/? MATRIX (ME) , SLEMENT:!, I5/(10%, 10212. 5)) 
(------- ASSEMBLE 
20 CALL ASSEL(1!,0, IDLE, NSYM, XLCCE, ALD, VXE, VFS, VSS, VASD, VAI, VFS) 
30 « ITPE1=ITPE 
RETURN 
END 





C 
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SUBROUTINE JACOBI (Vd, Vi, ¥ NCYM, 295, ¥8.90, V4.9, VECT) 


G TO SGLVE THe EIGENSROBLEM K-LAMBUA.M BY ThE GcNEASUI =D 
C JACCRI METHOD 
3 INPUT 
G VK MATRIX & (UPPER TRIANGLE BY DESCENDING 
c COLUMNS) 
fe VM MATRIX M (UPSEX TRIANGLE BY DESCENDING 
C COLUMNS) 
C N ORDER GF MATRICES K AND M 
. NCYM MAXIMUM NUMBER GF SWEEPS ALLOWED (45) 
C EPS CONVERSENCE TOLERANCE (1. 0-12) 
G WORKSPACE 
G VALPQO WORKING VECTOR (DIMENSION N) 
> OUT PUT 
e VALP EIGENVALUES 
C VECT EISENVECTORS 
IMPLICIT REAL#B (A-H, 0-2) 
COMMON/ES/M, MR, MP, MDUMMY (10) 
DIMENSIGN VK (#), VK (#}, VALBOIN) , VALBIN}, VECT (N,N) 
DATA EPSDO/1.0-4/, ZER0/0. 00/, UN/1.D9/, DEUN/2. DO/, QUATA/4. 50/ 
SQRT (X) =DSQRT (X) 
ABS (X) =DABS (Xx) 
EPS2=EPS*EPRS 
ITR=0 
Ca—---—— 3 VERIFY IF DIAGONAL TERMS ANE POSITIVE 
G AND INITIALIZE EIGENVALUES 
II=0 
DD 20 [=1,N 
II=I[+! 
TF (VK (II). GT. ZERO. AND. VM{1I).57.ZE%0} SO TD 10 
WRITE (MP, 2000) I 
COOO FORMAT(? ## ERROR, NEBATIVE DIAGCNS. TERM IN JACOBI, xOW', 
Loans) 
STOP 
19 VALPC(I)=VX (II) /VMCTT) 
20 = VALPO( 1) =VALP(T) 
Ca—————- 9 INITIALIZE SIGENVECTORS 
DO 40 I=1,N 
DG 30 J=1,N 
30 VECT(I,J)=ZERC 
Ay = VECTAI, I)=UN 











c FOR EAC SWEEP 
DO 250 IC=1,NCY™ 
E DYNAMIC TOLERANCE 
EPSD=EPSDOe#IC 
c SWEEP ROWKISE OVER UBPER TRIANGLE 
IMAX=N-1 
11=0 
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if 
_ 
Me 
ao 
~< 


DO 180 
TO=TI+! 
Tl=] I+! 
IP{=I+i 
TJ=li+] 
JJ=1] 
DO £80 J=IFi,N 
JPi=j+t 
JMi=J-{ 
JO=JJ+1 
JJ=II+J 
J3=JJ-i 
C-—---—— COMPUT= COUPLING FACTORS 
FK= er 8 ee 
PM=(VM (TS) eV CT) AVC TD EVM SG 
IF (FK.LT.EPSD.AND.=*.L1,€FS)) 50 TS 180 
C-—-—-— COMPUTE THE TRANSSCAMSTIGN COESKICIENTS 
ITR=ITR+i 
CL=VK CTI) EVM CIS) VAC IS) VAC TS 
Ce=VK CSI) VM CTI) “VAC I) €VK (75) 
C3=VK (TT) eV (JS) VM CTT) #VK CJS) 
DET=(C3#03/QUA7R) + (Ci #Ce) 
IF (DEY. GE. Zero) GO TG So 
WRITE(MP, CG0S) I,J 
COGS FORMAT(? #*ERROR, SINGULAR JACCSZ TRONSFGRMATION [=!, I, 
1 ? J=',13) 
STGP 
90 DET=SQRT (DET) 
DiaC3/DEUX+DET 
De=C3/DEUX-DET 
D=Di 
TF (ABS (D2). G7. ABS(D1)) D=De 
IF (DEQ. ZERO) GO TG 60 
A=Ce/D 
B=-Ci/D 
GO TG 65 
60 A=ZERG 
B=-Vik (iS) /VK (JJ) 
f MODIFY COLUMNS GF < AND % 
65 IF(I.&@.1) 50 7G 80 
IK=10 
Ji=IJ-1 
DO 70 JK=JO,J1 
Ci=Vk (1K) 
Ce=VK (JK) 
VK (IK) =C1+BeCe 
VK (JK) =Cet+Rec i 
CiL=VM (1K) 
Ce=Vin (JK) 
VM (TK) =Ci+B*Ce 
VM (JK) =Cc +h #0 1 


ed 


J)) 
yj 
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70 
8) 


110 
120 


IK=TK+! 

IF (YES. IML) GO “GO ica 
IK={1+] 

Je=T J+ 

{M=] 

DO 90 JK=Je, Js 

Cr=VK (1K) 

Ce=VK i JK) 

VK (IK) =Cit+seCe 

VK (JK) =CE+R#C i 

Ci=Ve (TK) 

Ce=Vis (JK) 

VM (TK) =Ci+eece 

VM (JK) =Ce+Aet 

[M=] M+ 

TK=iK+iM 

TF(JJEQ.N) GO “O ict 
{Kai J+J 

JK=JItJ 

IM=J 

DO 110 JJK=JP1,N 
Ci=VK (TK) 

C2=VK AJA) 

VK (IK) =C1+B4Ce 

VK (JK) =Ce+A#cl 
Ci=Va(id) 

Ce=Vi ( JK) 

VM (IK) =Ci +B 

Vid (JK) =C2+Aec i 
IM=IM+1 

IK=IK+i" 

JK=JK+I™ 

Cl=VK (TT) 

Ce=VK (10) 

C3=VK (J) 

Be=8#5 

BR=DEUX #5 

Ae=A#A 

AR=DEUX#A 

VK (11) =Ci+bbeCethexts 
VK (TJ) =ZeR0 

VK (JJ) =Cs+hheCet+Ae #0 i 
CL=VM(TT) 

Co=VM (TS) 

C3=VM (JI) 

VM CIT) =C1+BBaeCe+Be #0 s 
VE CI J)=ZERO 

Vn (JJ) =Co+AAeCe tA ec i 


C----——-_ UPDATE EIGENVECTORS 


DO 170 IJi=1,N 
C1SVECT(IJ1, 1) 
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C2=sVECTIIJ1. 2) 
VECTIZJ!, 1)=Ci +3802 
170 VECT (101, J) =C2+ae01 
180 IJ=IJ+J 
C= Uponse Stee mee 
11=0 
DO 190 I=1,N 
IST I+] 
TF (VACIL), GT. ZER0. OND, V4(I2).S7. ZE9Q) 80 73 159 
WRITE (MP, 2000) I 
STOP 
190 VALPCI)=VK(II) VM) 
IF(M, GY. 1) WRITE (MP, COLO) IC, (VALP(I), [21,4 
2010 FORMAT(/? EISENVALUES, SWEE? , 14/(1X, 10212, 5): 
[------- CHECK FOR CONVERGENCE GF E2S=NVALUES 
DO 260 I=1,N 
TF (ABS (VALP(I) -VALRQ(I)), GT. (EPSeVALS0(2))1 GO TC 236 
200 CONTINUE 
(-—-—--- CHECK FOR CONVERSENCE GN DIAGONAL TERMS 
JJ=1 
DO 210 J=2,N 
JJ=JJ+] 
IM1=J-1 
11=0 
DO 210 I=1, JM! 
LIS1I+] 
1J=JJ-J+1 
PREVA (15) #VK (10) (VK CET) 4K (J) . 
FM=VM (13) #VM (23) / (VMCIT) VM (J) 3 
IF (FH, ST. £052, OR. 2¥.GT.EPS2) GO TO 230 
210 CONTINUE : 
C---—--- NORMALIZE EIGENVECTORS 
DO 220 J=1,N 
JJ=a3J+J 
C1=SORT(VM(JJ)) 
DO 220 1=1,N 
220 VECT(I1, Ji=VECT(I, 2) /C1 
c ACHIEVED CONVERGENCE 
IF(M.67.0) WRITE(#P, 2020) IC, I7R 
2020 FORMAT(iSX, CONVERGENCE IN 1,14,’ SWEEPS AND ',75,° TRANSFORMETION 
{S IN JACOBI) 
RETURN 
(-—---——- TRANSFER VAL? INTO VALDO 
230 20 240 I=1,N 
240 VALPO(1)=VALP(T) 
250 CONTINUE 
C-——--—-_ FAIL 70 CONVERGE 
WRITE (MP, 2030) NCYM 
2030 FORMAT? ## ERROR, CONVERGENCE FAILURE IN JACOBI IN’, 24,7 SHE=597) 
STOP 
END 
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$LARGE: 
$LARGE: 
$LARGe: 
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$LARGE : 
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$LARGE: 
$LARGE: 
$LARGE ; 
$LARGE: 
$LARGE: 
$LARGE: 
$LARGE: 
$LARGE: 
$LARGE: 
$LARGE: 
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poe i 


Erey 


yi 16 Se 
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wo Frere 
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$LARGE: ET 


$LARGE: 


TPoXED 


SUBROUTINE DUNO (MICRUSC=7, BUG, KILLER) 


Ss eee me Se eee a SS SS SE eS SS SS a SS SS SS FB SS 2S SS SS SOT ESS SS 


I REFER TO THE FOLLlasNS SUaRUUTINES, weOSS NAMES BEGIN 
WITH "INIT," AS DUMMY SLS=CUTINES, SECAUSS THEY ARE 

NEEDED TO INITIALIZE THE ARRAYS o4ll4 Anz -S55cu AS 
CALLING PARAMETERS. THe ARRAYS CANSO” ES CNITIRL LED dice 
DATA STATEMENTS IN A DIRECT FASHIGN BECAUSE (Hitt 73 & 

BUG IN THE MICROSOFT FORTRAN COMPILER V2.c, wkeID- CoS MO 
INITIALIZE REAL ARRAYS CORRECTLY Ir THEY WAVE HEEN iDEN?- 
IFIED AS $LARGE ARRAYS. [7 DOES NOT SEem TO MATTER wHE:HoR 
THEY ARE DECLARED LARGE USING THE "GeNERIC” $l AaGe WITHOUT 
SPECIFIC ARGUMENTS, OR WHETHER THEY HAVE SEEN DECLARED 
SPECIFICALLY AS IN THE METACOMMANDS PRECEEDING THIS ROUT IN= 


TF THE BELGW ROUTINES ARE DUMMY ROUTINES; THIS ONE HAS 60: 

TQ BE CALLED AN IDIOT ROUTINE. THIS ROUTINE EXISTS BECAUSE 
THE DATA STATEMENTS FOR ReAL ARRAYS WILL NOT COMPILE CORRECTLY 
IF THEY ARE IN THE FIRST SUBROUTINE IN A COMPILAND. (41S 
SUBROUTINE PROVIDES A PAD TO FQGL THE COMPILER, wWITROLT 

THIS ROUTINE, THE ONE IMMEDIATELY FOLLGWING WILL NOT COMPILE: 
WITH THIS ROUTINE IT DOES. 


2 eS Se cn a Se SS ee mm ee me eee oe 


IMPLICIT REAL#A(A-H, 0-2) 
DIMENSION BUG (20) 

BUG(1) = 0,00 

RETURN 

END 
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SUBROUTINE INTTNG (W455 5, MEXet VASE aekeccogenanres 


THIS SUBROUTINE ZXISTS SOLELY 70 SET AROUND A MICRD 
COMPILER BUS, ITS PURPESE IS “0 INITIALIZE THE 2 
PASSED AS ARGUMENTS. THE DUMMY ARRAYS VXSTIL, VXSTZ2, 
VKSI33, KEXPi1, HEXPS2, AND KEXP33 “AVE BEEN GIVEN THE 
ATTRIBUTE $NOTLARGE, AND KILL BE INITIGLIZED Da0SE7LY 
BY ThE COMPILER. THE $NOTLARGE ATTRIBUTE IS Og5:8NED 
BY DEFAULT SINCE THEIR DIMENSIONS GO NOT ZXCEIO 64% BYTES 
GF STORAGE. 


or 


THIS SUBROUTINE 1S CALiED BY SuBROUTINE NI0i WoiCH [5 
USED FOR ELEMENT TYPE 1 


Se a ee en ee a ee eee me ee es 
a eee eee ee eee ee ee ee ee ee SS 


IMPLICIT REAL¥G(A-H, O-2) 
DIMENSION VKSIi (3), KEXP! (3), VKSI2 (16) ,XEXKS (16), VKSI3 (59), 
{ KEXP3(60) 

DIMENSION VAST11(3), EXPL (3), VAST22 (18), HEXD22(16) , VASES3(E0), 
t KEXP33(60) 


II OOO ONO ao 


CHARACTERISTSCS FOR 1,2 AND 3 DIMENSIGNAL REFERENCE ELEMENTS 


HERE IS THe DUMMY ARRAY INITIALIZATION 


C3 aoIao a 


TA VASTIL/-1. 00,0, DO, 1. D0/ 
DATA KEXP11/0, 1, 2/ 
DATA VkSi¢2/-1.00,-1.D0, +0.00,-1.00, +1.00, -yoG meen: 
! +1,00, 41.00, +0.00,4:.00, -1. 00, +i 30s taa 
DATA KEXP22/0,0, 1,0, 0,1, 2,0, 29ly Ojee cose tye 
DATA VKSI33/-1.00,-1.00,-1.90, +0. 00,-1.00,-1. D0, 
41.00, -1.00,-1.00, +1.00;4% Geena 
+1.00, +1.000,-1.00, +0..00) prepa aao, 
~[500,+1.00,-1.00, =los0;taruy, ise 
“1,00,-1.00,t0,00, +isnGe seca: 
+1000,+1.D0, 40,00, =lanoy eins, 
-1.00,-1.00,+1.00, +050G =i toae.. oy. 
+1,D0,-1. 00, +1.00, *i0G;t0n esi 
+1050, +1..00, +1. 00, +0,00, +i lee oo 
“1,00, 41. 00, +1. 00, <belyy aCe 
DATA KEX9S3/0, 0,0, 1,0,0, 0, t, Opeong ieee 
Po Sieine, 0,1, 1, 1,0)f, 2,9,0, Gic, Comieeec. 
© Cy PU a0 el elle vcel, “lacy, 
S Ogee Cy yc, ty eee 


wrmays Mone oo wo re, 


co 


INITIALIZE THE REAL ARRAYS 


DO 10 1 = 1,3 
VASIL (1) = VKSTLL (1) 
HEXBL(1) = KEXPL1 (1) 
10 CONTINUE 
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DO 20 3 = 1,16 
VKS12 (1) 
KEX52 (1) 
20 CONTINUE 
DO 30 I = 1,66 
VKSI3(1) = VKSI 
KEXP3(1) = KEXE 
30 CONTINUE 
RETURN 
END 


VS Tee (7) 
XPz2 (1) 


<= 


33 
58 


(7) 
(3) 


SUBROUTINE INTTNE(VKSI, AEX5) 


i ee ei ee ee ee ee ete te nl 
> A a ee ee a ee Sa a a a Se ea ia oe ee SS SS ee 


C TRIS SUBROUTINE EXiS%$ SGLz.Y 10 Ses ARUAD A OMLCROSOPy 
C COMPILER BUG. 275 PoRPOSE 26 TO INIT sALSZ2 TRE RRARYS 
C PASSED AS ARGUMENTS. THE DUMAY ARNXAYS VASIL RAND Acker Ove 
C BEEN GIVEN TRE ATTRIBUTE SNGTLARGE, ANS WiLL BE INITIRLIZeo 
C PROPERLY BY THE COMPILER, THE $NOTLGRG= AT TALBUTS 1S ASSravei 
C BY DEFAULT SINCE THEIR DIMENSIONS DO NCT EXCEED O44 BYTSS 
C QF STORAGE. 
C 
C THIS SUBROUTINE 35 CALLED BY SUBROUTINE AIG2 WHICH 7S 
e USED BY ELEMENT TYPE 2 
IMPLICIT REAL#8 (A-H, 0-2) 
C 


Ceeeeees INFORMATION RELATED Tu THE 8 NODED ReSERENCS SOUAXE ELEMENT 
C (INEL.EQ.8 NDIM.E&. 2) 
C DIMENSION VAST (NDIM#INEL) , KEXP (NDIM#INEL) , KADER IND IM) 


DIMENSION VKSI ( 16) ,XEXP | 6) 
DIMENSION VKSII( 16) , HEXP2( 16) 
E 
C INTITIALIZE THE DUMY ARRAYS 
Cc 
c NODAL COGRDINATES CF THE REFERENCE ELEMENT 
DATA VKSII/-1.D0,-1.D0, +0.D0,-1.D0, +1.D0,-i.00, +1.00, +0. 00, 
i $1.00, +1.00, 40.00, 41.00, -1.00,+1.D0, -1.00, +0. D0/ 
c MONOMIAL EXPONENTS OF THE POLYNOMIAL BRB, MAY-DEGREE 
DATA KEXPP/G,0, 1,0, 0,1, 2,0, 1,1, 0,2, 2 !, 1,2/ 
c 
c INITIALIZE THE REAL ARRAYS 
P 
DO 10 I = 1,16 
KEXP(I) = KEXPP(I) 
WSI(I) = VKSII(2) 
10 CONTINUE 
RETURN 
END 
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C3 


co 0393 OO 


C3 


10 


SUBRGUTINE INTINS(VKSI, KeX9} 


THIS SUBROUTINE EXiSTS SGLe_Y 79 GET AROUND A MICRGSUFT 
COMPILER BUG. I7S PURPOSE iS 7G INITIALIZE TRE ARRAYS 

PASSED AS ARGUMENTS. THE DUMMY ARRAYS VXSI? AND Keke SAVE 
BEEN GIVEN TRE ATTRIBUTE SNO7LARGC, AND will BE INITIALIZED 
PROPERLY BY THE COMPILER. THe $NGOTLANGe ATTRigU TS 19 45525420 
BY DEFAULT SINCE THE!R DIMENSIONS DO NOT EXCEED 644 SY ES 

CF STORAGE. 


THIS SUBROUTINE 15 CALLED BY SUBROUTINE AIO3 WHICH 15 
USED BY ELEMENT TYPE 3 


Se eS ee ae eS ES SS eee eee ee ee a a ee i Se 


IMPLICIT REAL#8(A-H, 0-2) 


ecee INFORMATIONS CARACTERISTIQUES DU TRIANGSLe A & NOEUDS 


(INEL.EQ.6 NDIM.EQ. 2) 
DIMENSION VKSI(NDIM#INEL) , KEXP (NDIMHINEL) 
DIMENSION VKSI ( 12) KEXP ( 12) 
DIMENSION VKSII( 12), KEXP ( ‘2) 


THIS IS THE DUMMY ARRAY INITIALIZATION 


COORDONNEES DES NOEUDS DE LYELEMENT DE REFERENCE 
DATA VKSII/0.D0, 0. DO, 0. 500, 0. DO, 1.00, 0.99, 0. 5D0, 0. 5D0, 0. D0, 1. D9, 
{ 0.0, 0. 5D0/ 

EXPOSANTS DES MONOMES DE LA BASE DOLYNOMIALS, DEGAS Max. 
DATA KEXPP/0,0, 1,0, 0,1, 2,0, 1,1, 0,2/ 


INITIALIZE THe REAL ARRAYS 


DO 10 i = 1,12 
VKSI(1) = VKSIIAT) 
KEXD (7) = KEXPD(2) 

CONTINUE 

RETURN 

END 


ADO 


SUBROUTINE INITS6(kGT, PSI7, S7RT, INTNUM, NIATV! 


we > a a Se ee ee et ee ee > PP Se Sey GP = a = ae a a ee ee a ee ee ee ee ee ey eg ee cee ee es oe ee ee ee ee ee oe 
— > — > a a ee ee ee eS ee aS eS ee a SS SS eS SS 


c THIS SUBROUTINE EXISTS SOLELY 73 GET ARDUND A MICROSOFT 
c COMPILER BUS. ITS PURPOSE IS TO INITIALIZE THE ARRAYS 
c PASSED AS ARGUMENTS. THE DUMMY ARRAYS WSTT, #SITT, 
c ETATT, INTNUU, AND NINTVV HAVE BEEN SIVEN TRE 
c ATTRIBUTE $NOTLARGE, AND WILL BE INITIALIZED P2d2ExLY 
c BY THE COMPILER, THE $NOTLARGE ATTRIEUTE IS ASSISNED 
C BY DEFAULT SINCE THEI? DIMENSIONS DO AGT ZXCEED 64% BYTES 
c OF STORAGE. 
c 
c THIS SUBROUTINE 1S CALLED BY SUBROUTINE ST=06 KHICH 15 
c USED FOR ELEMENT TYPE & 
ee ee ee ee ee ea aa ee aon aaa oa een aeaSaaaaasass= 
IMPLICIT REAL¥S(A-H, 0-7) 
DIMENSION WGT (*),PSIT Ge), ETAT (4), INTNUMGH) NINTV (4) 
DIMENSION WGTT (7), PSITT (7), ETATT (7) , INTNUU (5), NINTWV (5) 
c 
c HERE 15 THE DUMMY ARRAY INITIALIZATION 
E 
DATA PSITT/ 0, 3333333333300, 
: 0, 16666666666 700, 0. 166656666667D0, 0, 66566666566 700, 
t 0,500 ,0. 500 0 ODG/ 
DATA ETATT/ 0.333333333333D0, 
t 0, 166666666667D9, 0. 6656665666700, 0. 16666666656700, 
t 0,000 0. 500 , 0. 5DO/ 
DATA WGTT/ 1.0DQ, 
t Q, 333333333333D0, 6. 33333333333300, 0. 33333323333300, 
t 0, 333333333333D0, 0. 333333333333 04,6 , 333333332333D0/ 
DATA INTNUU / 0, 1,447, 11/ 
DATA NINTW / 1,3,3,4, 7/ 
C 
c INITIALIZE THE REAL ARRAYS 
c 
DO 10 1 = 1,5 
INTNUM (1) = INTNUU(Z) 
NINTV(I) = NINTW (1) 
10 CONTINUE 
DO 20 I = 1,7 
WET(I) = WGTT() 
PSIT() = PSITTC) 
ETAT(I) = ETATT(L) 
2 CONTINUE 
RETURN 
END 
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SUBROUTINE INI3R6(95, <7) 


ee eee ee ee ee ee ee see eee ee eee ee eee eo i ea ae a Se ee 


Ci £3 €2 02 cD Cd Ce Cd c2 C2 


re Sa 


TRIS SUBROUTINE EXISTS S@WELY TOMBSS AGGUND naieaey 
COMPILER BUG. 7S PURSOSE IS TO iNT TiS&iize 45 ARSGYS 

PASSED AS ARGUMENTS. THE DUMMY ARRAYS 955 AND ET -<AVE 

BEEN GIVEN THE ATTRIBUTE SNCTLARGS, AND will ES INITIOLS2Z=3 
PROPERLY BY THE COMPILER, TRE SNOTLARGE ATi AlBsTe 15 S8SieNes 
BY DEFAULT SINCE THEIR DIMENSIONS DG NOT EXC==D 54% BYTES 

QF STORAGE. 


THIS SUBROUTINE 15 CALLED SY SUBROUTINE STRGS WHICH IS 
USED FOR ELEMENT TYPE 6 


vee cee coe a ee Se ee ee me ee eee ee 


ee ee eee eee ee ee eee ee eo eee a 


C3 3 


7 oo 


IMPLICIT REALS (A-H, 0-2) 
DIMENSION PS (#),=7 (+) 
DIMENSION PSS(6), ETT (6) 
HERE IS THe DUMMY ARRAY INITIALIZATION 


DATA ETT /0.,0.,1.,0.,0.5,0.5/ 


INITIALIZE THE REAL ORRAYS 


DG 10 1 = 1,6 
PS(I) = PSS(7) 
ET(I) = EFT(D) 

CONTINUE 

RETURN 

END 


Zone 


SUBROUTINE INTTN?7 (VAST, 4EX3) 


aS SS ee ee i i ee ea ee ee ee we i i ie ee 


a ee ee ee ee eee ee ee ee eee ee ee ee ee ee ee eee eee Se 


ad 


am 


C2 €) €3 ©) ©39 £203 OF CF 


TRIS SUBAGUTINE =XiS7S SOLELY “O GEF QROLND A MiCHOSCFT 
COMDILER BUG. i175 SURPOSe 15 TC INITIALSZ= TRE ARRAYS 

PASSED AS ARGUMENTS, THe DUMMY ARRAYS VAST. ONG KExPy 4Av= 
BEEN GIVEN THE ATTRIBUTE SNOTLANGE, AND WiLL BE INITIALIZE0 
PROPERLY BY THE COM@ILER, THE SNOTLANGE GTTRIBUTS 15 ASS °SNEE 
RY DEFAULT SINCE TREIR DIMENSIONS DC NOT EXCEED 64% BYTES 

GF Si 0RAGe. 


THIS SUBRGUTINE IS CALLED BY SUBROUTINE NIO7 WHICE 1S 
USED BY ELEMENT TYPE 7 


— AES ee ee ee eee ee ee a eS Se a See ame ee a Sa Se a 
ay CE ee ee ee ee et ee ee ea Se SO 


C1 oo 0 


Cc) 


10 


703 oo O39 


Prowmna mM on & os TU me 


IMPLICIT REAL#8 (R-H, 0-7; 


aces INFORMATIONS LISES A LTELEMENT DE RePeneNts CARRE A 20 NOESDS 


(INEL.EQ.20 NDIM. EQ. 3) 
DIMENSION VSI (NDIMHINE:) , XEXD(NDIMFINEL) , ADER(NDIM) 
DIMENSION VXSI( 60), KEXP 60) 

DIMENSION VKSITC BO) , KEXDA 60) 


INTTZALIZE Tae GUMMY ARRAYS 


DATA VXSII/ 
=) 00,-1.00,~1.00, +0.00,-1.00,-1,D0y +1. D0, ~wdiOy-t. D0, 
+1, 00, +0.D0, -1. D0, 
eee, 1. pe. tO.uN, +1. 00,-1.00, -1.D0, r1.00,-1. 00, 
-i.D0, +0. D0, -1. DO, 
a UOMO s +1 .bo, 1. 00, +0. 00, +1.00, +1. D0, +0. 00, 
-1.00, 1.00, +0. DO, 
mere. tek 40,00,-1,00,+1.00, +1.00,-1.90, +1, 30, 
+1, 00, +0. 00, +1. Dd, 
TGW Oe Det nC, t0eney rl. 00, +1. 00) -1. 00, +1.00, +1. 4, 
Storr. Di), +1. / 
EXPOSANTS DeS MONCHES DE LA BASE SOLYNGMIALE, DEGHE YAK, 
DATA KEXPP/0,0,0, 1,0,0, 0,1,0, 0,9,1, 2.0.0, 0,26, 9,5,2, 
eto Omi ieee t. cnr, 0, °c, 0,1, 1,2,0, 6,2, {, 


2 OMe, OMNES 11, OMI, 1,2,1, 1,1,2/ 


INITIALIZE THE REAL ARRAYS 


DG 10 7 = 1,60 
KEXP(Z) = KEXPP(T) 
VASI(2) = VASTICD 

CONT INGE 

RETURN 

END 


2 


GJBROUTONE INT TES (ENDIC, G, 8) 


DO NOT EXCeED 644 BYTES CF STORAGE. 


mooring gaoogs 


THIS SUBROUTINE [5 CALLED BY SUBHOLTINE GALS 


THIS SUBROUTINE ZXIS7S SSLSLy 7c S=F SQ0D A MICROSOFT 
COMPILER BUG. 17S PURPOSE [5 7G INITIALIZE THE ARRAYS 
DOSSED AS ARGUMENTS, TUS DUMMY nae INDIZC, 33, AND 
PP HAVE EEEN GIVEN THE ATTRIBUTE $SNOTLARSE, AND WiLL EE 
INITIALIZED PROPERLY BY THE COMPILER, TSE SvOTLARGE 
ATTRIBUTE IS ASSIGNED EY DEFAULT SINCE THEIR DIMENS:ONS 


SS Bae Se eS Se SS eee ee eee eee i ee ie ee ee eee 
— Ee we ee a SS RSS OSS SC Se aS SS a ee ieee i ee ee ie eee ee 


IMPLICIT REAL#B(R=H, C-Z) 
DIMENSION INDIC (4),6 (i0),P (10) 
DIMENSION INDICC (4), G69), PP 10) 


HERE IS The DUMMY ARRAY INITIALIZATION 


C7 


DATA INDICC/1,2, 4, 7/ 
DATA GG/0. ODO, -. 577350269189626D0, . 577330259 169525D6, 
~, 77459668924148300, 0. ODO, . 774556669241 48320, 
2 ~, 86113631 159405090, -. 339991043584860D6, 
3 , 33998104358486000, . 86113635 159405000/ 
DATA PP/Z, 00, 1. 000, 1. 000, 
0, 35555555555555600, 0, 89988G3896a2a89D0, 0.5 
, 347854845137450D0, . 652145!5486255CD0, 
, 652145154862550D0, . 34785444513745000/ 


— 


t) To 


INITIALIZE THE REAL ARRAYS 


C3 


DO 10 1=1, 4 
INDICT) = 2 

10. CONTINUE 
DG 20 I = 1,10 
G{I) = 6G(I) 
P{I) = pO{T) 


NDICC (i) 


20 CONTINUE 
RETURN 
END 


254 





gt ena oer 


SUBROUTINE INITELITEL, WHO) 


oo ee ey cm eee ee ee eee ee eee eee ee i ei i see 
mm eit te em emt me et tt st St em te ee eee ee SS Oe eS 





THIS SUBROUTINE EXISTS SGLE_Y 72 GET ARCUND A FICRGSOFT 
COMPILER BUG. if PURFOSE 15 TO INDTIRLIZE THE ARRAY Tht 


PASSED AS RN ARGUMENT, TRe DUMMY ARRAYS UBLX aSVE BEEN GIVEN 


THe ATTRIBUTE $NOTLARG=, AND WILL BE INITIALIZED eXCPS4LY 
BY THE COMPILER, THE $NQTLARGS ATTRIBUTE 15 SSSIGNED FY 

DEFAULT SINCE THE DIMENSION OGES NOT EXCESD 64% BYT=S OF 

STORAGE. TBL CONTAINS SGINTERS INTG TRE WORAING ARRRY, 


THIS SUBROUTINE IS CALLED BY SUBRGUTINE GLLIND, SLALIN, 
BLTEMP, SLVALP, BLCGOR, BLCOND, BLPREL, BLELE*, BLSOLA, 
AND BULINM, 


CHARACTER*4 TEL, WHO, CALLER(i6), TELL (10), TBL2(10), TEL3(i3), 
TBL4(20), TELS( 23, 7BLB{ 2), 


k TBL7{ 2), THLB( 6), THLS¢ 8), TBLIO(G) 


DIMENSION TEL (+) 

DATA CALLER/?LIND?, NLIN’,? TEMP’, 'VALP?, 1COGR’, COND’, '9R5L!, 
# ELEM? 7SOLQ?, LINM? / 

DATA NTELS/10/ 


INITIALIZE THE DUMMY ARRAYS 


TBL ASSIGNMENTS FOR SUBROUTINE BLLIND 


DATARPBLi/7XGS *,°KGD ?,7KG] 7,7F5 ',°KE 3,°FE 7, °RES ', DLE, 


# YER DR 


TBL ASSIGNMENTS FOR SUBROUTINE BUNLIN 


embeecs Kho y Meee KRG: 7.7FG 7 TKE «6° °FE 6°, °RES 7, °DLE ’. 


# DG ME °/ 


TBL ASSIGNMENTS FOR SUBROUTINE BLTEM? 
DATA TBL3/?KGS ’,’KGD ’,’KGI ’,°FG °,°KE °,'FE ¢*,tRES ', 
+ DLE ,’DLG ’,’ME °,’DLEO’, DLGO’,Fa0 1/ 


TBL ASSIGNMENTS FOR SUBROUTINE SLVALP 
DATA TBL4/KGS °,7KGD ?,°MGS 7, MED ',°FG ,°KE U,IFE 
# DLE, 7RES 7, DLE 7,7D LAMB TLAMIT TR THT 
# KGS IMSS VE TVX PVE 9Y 


TBL ASSIGNMENTS FOR SUBRGLTINE BLCOGR 
DATA TBLS/*CGRG’,’ DLNC’ / 


. TBL ASSIGNMENTS FOR SUBROUTINE BLCOND 
DATA TBL6/?NEQ °, *DIMP? / 


TBL ASSIGNMENTS FGR SUBROUTINE BLPREL 
DATA TBL7/*PREG’,*V 7 / 


a> 


SR ee cm me et em mt te em rte ee me me Se re ly i i ee ee 
rm me st mm ee ee ee eee eS = 


- ~~, Feo Mrs -o = ~~ ¢e &. - = - 
C SU VsslctMe\ = -ow SlsesL 4s clef 
rw -—= Ps . =o Fr ee = ¢ e- -—~s* eee, 
Pere TEL / iD 7, oe’. ee’ ee oawe’ | * SEs" 


a4 
y 
‘ 
cry 
any 
’ @ 
U! 

«x 
x 
@ 

4 

1 

A 


SseeGy ike 2 SL- 


- ee Pp, rr & ce - oe | = =< s e eg e 4 ai 4 
oat got 1a s/ eo 1 Yat 1 Re 1, '4ss e a) e “a 4 e 
% ene 1/ 


ca Fi 
es 
én 
- E 

2 

it) 

z 

- 

? 
us 
uy 
“i 
tut 
1 
«1 


ee) an 


C1 


1F (HG. 2R. CALLER )> TS2Iny = 7 
CONT TNE 


7 oo CA 


=a . as INITIALIZATION LODE 
BOTU(10, 20, 30, 40, 50, 59, 70, 89, 99, 100), ZSEINT 


C nd Tee 950 Geely =e ou INE 
© @Boi=-40 
TH) = TRLIC) 
1S CONT TNL 
Ae TURN 


la 
c INITIALIZE THE REM SRREV FOR BLN IA 
4 WS l= 1,20 
TBLT) = THUD) 
CONTINUE 
FETURN 


On 


INITIQLIZE “4e REG Geary -G4 Tame 
DOS i= ile 
THT) = THLS(2) 
CONT INE 
RETURN 


a" oP 


a 
w 


c INITIALIZE THe REAL Seney “De SLVEL 
{ 


PSL) = TR4(7) 
45 CONTINE 
Ae TURN 


C 
C INITI@L2Z 
% WS = 1,2 
TRL) = TBLS(2) 
SS CONTIN 
SETUAN 


THE HEAL AMSAY -ORn BLCOOR 


4 


C 
Cs TALI: He Ge. Fey - Or ELOO 
0 WB i=i,e 


TRL(G) = TBLOUS) 


65 CONTINUE 
RETURN 
E 
C__sENITIALIZE THE REAL ARAGY FOR ELERIL 
7 DOM 1= 1,2 
TEL(Z) = TBL7UD) 
75 CONTINUE 
RETURN 
c 
C__sINITIALIZE THE REAL ARRAY FOR BLELEM 
Bo DGeeS 1 = !,6 
TELUT) = TBLACI) 
85 CONTINUE 
RETURN 
E 
C _s INITIALIZE THE REAL ARRAY FOR BLSOLR 
90 poss 1 =1,8 
TBLUT) = TELS(D) 
95 CONTINUE 
RETURN 
c 


Po 


100 


105 


———— NE > a ES ee 


INITIALIZE THE REAL ARIGY FOR BLLINM 
DO 105 I = 1,8 
TBLUI) = TBLLONI) 
CONTINUE 
RETURN 
END 


SUBROUTINE INITSG(LP6xeD, weO) 





a SS DD ee ee ee ee es ee ee i ie ee ee ee ee a a ee ee ee ee ee ee ee ee es eS SS 


OoarIrInri di aI 3 MY 


THIS SUBROUTINE =X1S:S SOLELY 70 Gei RRUUND A MICRUSUFT 
COMPILER BUG. iTS PURFUSe iS TG INITIALIZE TEE ARRAY 
PASScD AS AN ARGUMENT. THE DUMMY ARSAY 2 9GKX S45 BE=N 
GIVEN TRE ATTRIBUTE $NOTLARGE, AND WiLL Be INITIALIZES 
PROPERLY BY THE COMPILER. THE SNGTLARGE ATTRIBUTE 15 
ASSIGNED BY DEFAULT SINCE TRE DIMENSION DOES ACT EXUz=L 
64K BYTES OF S:ORAGE. 


THIS SUBROUTINE 15 CALLED BY SUBROUTINES EL=MCL, SLoMCe, 
AND ELENO?. 





a ee ce ee ee ee es ee ee ee ee ee a ee ee ee 


DIMENSION IPGKED(#), [PGKI(3), IPGKE(2), [PGK7 (3) 
CHARACTER#4S wei, CALLER (3) 
DATA CALLER/'ELO!?, *ELOe?, "ELO?!/ 
DATA NCLRS/3/ 
MERE IS TRE INITIALIZATION -CR cL EMO: 


DATA IPGK1/3, 3, 3/ 
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c HERE IS THE INITIGLIZATION FOR cLexge 
DATA IPGK2/3, 3/ 


C 

c HERE IS THE INITIALIZATION 70% £.2%07 
DATA IPGK7/2, 2, 2/ 

c 


C__ DETERMINE THE CALLING ROUTINE 
DO 5 i = i,NCLRS 
IF (WHO.EO. CALLER(I)) IDQINT = 1 


5 CONTINUE 
c 
C__ BRANCH TO CORRECT INITIALIZATION LOO? 
GOTO (40, 20, 70), IPGINT 
, 
c INITIALIZE IPGXED FOR SUBROUTINE ELEHOL 
10 DOISI=1,3 
IPGKED(I) = IPGKI (1) 
{5 CONTINUE 
RETURN 
C 
; INITIALIZE IPGKED FOR SUBROUTINE CLEMO? 
20 DAI = 1,2 
IPGKED(I) = IPGKE(1) 
25 CONTINUE 
RETURN 
C 
E INITIALIZE IPGKED FOR SUBROUTINE ELEMO7 
7 DOS 1=1,3 
IPGKED(1) = IPGK7 (1) 
75. CONTINUE 
RETURN 
END 


Wise 


“$LARGE 
$NO=LOATCALLS 
SUBROUTINE ELEM B (VCORE, VPRNE, VOAEE, VOLE, V4E, YFE) 


ee ee i ee ee ee rm cm ee ee ee a ee ee ee 
a DR Se ee me me comm Sm me ee cme ee ee ee ee ce ee ee ee ce ec ie mS ee ee 


IMPLICIT REAL#8 (A-H, 0-2) 
COMMON/RGDT/TEL, ITPE, NULL (13) 
DIMENSION VCORE (4), VORNE (#)  VeRec(#) , VDLE(#) , VXe (8), vrE(*) 





C oe eee, 
GO TO ( 10, 20, 30, 40, 50, 80, 70, 80, 90,100), 1732 
c ELEMENT OF TYPE 1 





{0 CALL ELEMOL (VCORE, VPRNE, VOREE, VDLE, VKE, VFe) 
GO To 90 

C-—---— ELEMENT OF TYPE 2 

20 CALL:«ELEMG2 (VCGRE, VPRNE, VPREE, VDLE, VKE, VFE) 
GO TO 300 

C-——---- ELEMENT OF TYPE 3 

30 CALL -ELEMO3 (VCORE, VORNE, VORSE, VDLE, VAE, VFE) 
60 To 30 

C------- ELEMENT GF TYPE 4 

40 CALL ELEMO4 (VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 
60 70 900 

C ELEMENT OF TYPE 5 

50 CALL ELEMOS(VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 
60 70 Wd 

C-----—- _ ELEMENT OF TYE 6 

60 CALL ELEMOS (VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 
60 To 900 

C--—-—- ELEMENT OF TYPE 7 

70 = CALL - ELEMO7(VCGRE, VPRNE, VARES, VOLE, VKE, VEE) 
60 70 900 

(--—--- ELEMENT OF TYPE 8 

80 CALL ELEMO@ (VCORE, VPRNE, VPREE, VDLE, VKE, VFS) 
60 TO 900 

c ELEMENT OF TYPE 9 

90 CALL ELEMOS(VCORE, VPRNE, VOREE, VOLE, VAE, VEE 

60 To 900 

C------- ELEMENT GF TYPE 10 

100 CALL ELEMIO(VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 
60 TO 300 

C------- OTHER ELEMENTS 

c peee ss 

900 RETURN 
END 
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$LARGE 
$NOFLOATCALLS 
SUBROUTINE ELEMO1 (VCORE, VPANE, VAREE, VOLE, VAE, VEE) 


C QUADRATIC SLEMENT FO2 ANISOTROPIC HARMGNIC DROSLE¥S 
c IN 1,2 OR 3 DIMENSIONS : 

c { DIMENSION: 3 NODES ELEMENT 

Cc 2 DIMENSIONS: 8 NODES ISOPARAMETRIC ELEXENT 

Cc 3 DIMENSIONS: 20 NODES ISOPARAMETRIC ELEKENT 

C NUMBER OF INTEGRATIGN POINTS : 2 IN EACH DIRECTION 
C NUMBER OF DEGREES OF FREEDOM PER NODE : | 

C ELEMENT MATRIX OR VECTOR FORMED BY THIS SUZPROSNAY 
f ACCORDING TO ICODE VALUE : 

cC ICCDE.EQ.1 RETURN GF PARAMETERS 

c ICODE.£0.2 SVALUATE INTERPOLATION FUNCTIONS OND 
c NUMERICAL INTEGRATICN COEFFICIENTS 
c ICODE.E0.3 ELEMENT MATRIX (VE) 

c ICODE.EQ.4 TANGENT MATRIX (VXE)....NOT WRITTEN... 
c ICODE.E0.5 MASS MATRIX (VXE) 

c ICODE.£0.6 K.U PRODUCT (VFE) 

c ICODE.€Q.7 ELEMENT LOAD (VFE)....NOT WRITTEN... 
c ICODE.E0.8 PRINT GRADIENTS 
C ELEMENT PROPERTIES 
C VPREE(1) COEFFICIENT DX 
c VPREE(2) COEFFICIENT DY 
c VPREE(3) COEFFICIENT 02 
c - VPREE(4) SPECIFIC HEAT CAPACITY C 


a a SS ES SS SS Se SS Ee SS a SS SS SS a SS SS SS SS SS eS See ew Se ae SS SS Se a ae ae ee 
= eee Sm ee ee ec ce ee ee 


IMPLICIT REAL#B(A-H, 0-2) 

COMMON/COGR/NDIM, NNULL (3), FNULL (3) 

COMMON/RGDT/IEL, ITE, ITOE1, IGRE, IDLE, 1CZ, IPRNE, TAREE, INEL, 1925, 125 

{ , ICODE, IDLEO, INELO, 2P&G 

COMMON/ES/M, MR, MP, MDUMMY £10) 

DIMENSION VCORE (#) , VPRNE (#), VPREE (4) , VDLE (4), VRE (4), VFE (4) 
ee CHARACTERISTIC DIMENSIONS OF THE ELEMENT 
c (VALID UP TO 3 DIMENSIONS) 
C DIMENSION VCPG (IPG), VKPG (NDIM#1PG) , XYZ (NDIM) 

DIMENSION VCPG( 9), VKPG\ 27),XYZ{ 3) 
C DIMENSION VJ (NDIMENDIM), VJ1 (NDIMENDIM) 





DIMENSION VJ ( 9), VJ1 9) 

C DIMENSION VNIX( INELSNDIM),VNI. ((14NDIM) #INEL¥I86) , IPGKED (DIM) 
DIMENSION VNIX( 60), VNI ( 2160), IPGKED( 33 
DATA ZERG/O. D0/,EPS/1.D-6/ 

E 

c NUMBER OF 6.9. IN KSI,£76,DZETA DIRECTION 

C 

Ce++ THIS IS COMMENTED QUT BECAUSE OF THE ¥S FORTRAN COMD- 

CH+ ILER BUG WHICH WILL NOT INITIALIZE $LARGE ARRAYS. 

C++ THIS ARRAY IS NOW INITIALIZED BY A CALL TO A DUMMY 

C++ SUBROUTINE INITPG WHICH EXISTS SOLELY TO INITIALIZE 
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Ct++ THE NUMBeR OF GAUSS POINTS FOX TRE CALLING RGUTING. 


C 
g DATA TPGKED/3, 3, 3/ 
C 
C HERE 3S THE CALL 79 GET AROUND Tre COMPILER Bus 
C 
CALL INITPG(TPGKED, *EL01?) 
C 


C+++ ALL OF THIS WAS SOLELY TO GeT AROUND THE MICROSOFT 
iy COMPILER BUG 

as 
TKE=IDLE*#(IDLE+!) /2 





c 
(-———- CHOOSE FUNCTION 70 BE EXECUTED 
c 
GO TO (100, 200, 300, 400, 500, 600, 700, 800), ICGDE 
E 
C-—-——- RETURN ELEMENT BARGMETERS IN COM*ON ’ 6D7" 
c 
100 60 TO (110,120, 130), NDIM 
110 IDLE0=3 
INELO=3 
1PG0=3 
RETURN 
120  IDLEG=8 
INELO=8 
1PG0=9 
RETURN 
130  IDLEO=20 
INELO=20 
1PG0=27 
RETURN 
c 
(-—----- EVALUATE COORDINGTES, WEIGHTS, FUNCTIONS N AND 
c THEIR DERIVATIVES GT G.P. 
c 


200 CALL GAUSS(IPGKED, NDIM, ¥423, VOPG, 275) 
CALL NIO1(VKPG, VNI) 


RETURN 
C 
C-—-—-—- COMPUTE ELEMENT STIFFNESS MATRIX 
C 
Cas-—--—- ENPALIZE VKE 


300 DO 310 I=, IKE 
310 VKE(I) =ZERO 





c LOOP OVER THE INTEGRATION POINTS 
INT=1+INEL 
DO 330 IG=1, 178 
C-——— EVALUATE THE JACOBIAN MATRIX, 178 INVERSE AND ITS DETERMINANT 


CALL JACOB(VNI (INI), VCORE, NDIM, INEL, VJ, Vit, DST) 
IF (DETJ.LT.EPS) WRITE (MP, 2000) IEL, 16, DETI 
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2000 FORBAT(’ #*% ELEM ',15,) 2.5. ', id; "ecree ao) 
C--——---—-  —- DERFORM DETJ#WZIGHT 
COEF=VCPG (IG) 4DETJ 
C---—--- 9 cVALUATE FUNCTIONS D(NI)/D(X) 
CALL DNIDX(VNICINI), VJ, NDIM, INEL, VNIX) 
C-————- ACCUMULATE TERMS OF THE ELEMENT MATRIX 
IK=0 
DO $20 J=1, IDLE 
DO s20 [=i,J 
I=] 
le=J 
C=ZERO 
DO 315 1J=1,NDIM 
CaC+VNIX (71) #VNIX (12) #VPREE (TJ) 


Ti=]1+IDLE 
313. I¢e=Te+IDLe 
IK=IK+! 
$20 VRE (TX) =VKE (TK) +C #CGeF 
(——-—— _"eaveo: F. 
330  INI=INI+(NDIM+1) #iNEL 
RETURN 
C 
C-—-—-——_ EVALUATE ELEMENT TANGENT MATRIX 
C 
400 CONTINUE 
RETURN 
C 
C--—-—-—-_ MASS MATRIX 
C 


500 DO 510 I=1, IKE 
510 VKE(I)=ZERO 

IF (VPREE (4). £8, ZERO) RETURN 

INI=0 

DO 530 IG=1, 175 
C——-— EVALUATE THE JACCBIAN MATRIX 

I1=INI+INEL+1 

CALL JACOB(VNI (IL), VCORE, NDIM, INSL, V2, VJ1, DETI) 
C———— COMPUTE THE WEISHT 

COEF=VCPG (1G) #DETJ#VPREE (4) 


C TERMS OF THE MASS MATR:iX 





1K=0 

DO 520 J=1, IDLE 

DO 520 I=1,J 

IK=IK+1 

LisINI+1 

[2=INi+J 
520 VKECIK) =VKE (IK) +VNI (11) #VNI (12) #COEF 
530 INISINI+(NDIM+1) #!NEL 

RETURN 
fp . 
C-—-—-—- EVALUATE THE ELEMENT RESIDUAL 
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C 
600 DQ 605 I=1, INEL 
605 VFE{I)=ZERC 
INT=1+INEL 
DG 640 IG=1, IPG 


(-—--— EVALUATE THE JACOBIAN MATRIX AND THE DERIVATIVES OF N IN X,Y,2 
CALL JACOB (VNI (INT), VCORE, NDIM, INEL, VJ, Vii, DET.) 


CALL DNIDX (VNICINI), Voi, NDIM, INEL, UNIX) 
C——-— COMPUTE THE COMMON COEFFICIENT 
COEF=VCPG (16) #DETS 
C——---- VPREE#BSVDLE PRODUCT 
11=0 
DO 620 I=1,NDIM 
C=ZERO 
DO 610 J=1, INEL 
Lisliti 
610 C=C+VNIX (71) #VDLE(J) 
620 VI (1) =C#COEF#VPREE (2) 
C-——— (BT) #VJ PRODUCT 
DO 630 I=1, INEL 
I1=I-INEL 
DO 630 J=1,NDIM 
L=T1+INEL 
630 VRE (I) =VFE (1) 4VNIX (14) #VJ (J) 
640 INISINI4+(NDIM+1) #INEL 


RETURN - 
c 
(-——— EVALUATE FE 
c 
700 CONTINUE 
RETURN 
c 
C-—-—— EVALUATE AND PRINT GRADIENTS AT G.P. 
C 


B00 WRITE(MP, 2010) IEL 
2010 FORMAT(//? GRADIENTS IN ELEMENT :',14//) 
IDECL= (ND IM+1) #2NEL 
INIO=1 
INI=1+INEL 
DO 830 1G=1, IPG 


CALL JACOB (VNI (INI), VCORE, NDIM, INEL, VJ, Vit, DETZ) 


CALL DNIDX(VNI (INI), VJL,NDIM, INEL, YNIX) 
EVALUATE THE COORDINATES OF THE 6.2. 
DO 803 I=1,NDIM 
B03 XYZ(1)=ZERO 
10-1 
IO=INIO 
DO 807 IN=1, INEL 
C=VNI (10) 
DO 805 1=1,NDIM 
XYZ (1) =X¥Z (1) 4C*VCORE (IC) 





C- 


26s 


S05 IC=ieet 


807 10=10+1 
(-—----- EVALUATE THE GRADIENT 
11=0 
DO 820 I=1,NDIM 
C=ZERO 


DO 81G J=1, IDLE 
Ti=It+i 
81Q  C=C+HVNiX (13) #VDLE (J) 
GO VJ(T)=CEVEREE (T) 
(am—n——— = PRINT THE GRADIENT 
WRITE(MP, 2020) iG, (XYZ(1), T=1, NDIM) 
2020 FORMAT(SX,'2.5. 3°,13,' COGRUINATES :', ile. 3) 
WRITE(MP, 2023) (VJ(T), T=), NDI) 
2025 FORMAT(ISX,’GRADIENTS  :°, E12. 5) 
INIO=INIO+IDECL 
830  INI=INI+IDECL 
WRITE (MP, 2030) 
2030 FORMAT(//) 
RETURN 
END 


SUBROUTINE NIOL(VKPG, VNI) 


C TO EVALUATE THE INTERPOLATION FUNCTIONS AND THEIR DERIVATIVES 
f D(N) /D(KSI) D(N)/D(ETA) BY TRE GENERAL PN-INVERSE YETHOD 

c FOR 1,2 OR 3 DIMENSIONAL QUADRATIC ZLEMENTS 

Cs INPUT 

c VAPG «COORDINATES AT WHICH N IS TO BE EVALUATED 

g IPG NUMBER OF POINTS 

c INEL NUMBER OF FUNCTIONS N (OR GF NODES) INEL. LE, 29 
c NDIM | NUMBER OF DIMENSIGNS NDIM.LE.3 
c QUTPUT 

c VNI FUNCTIGNS N AND DERIVATIVES 


IMPLICIT REAL#8(A-H, 0-2) 

COMMON /COOR/NDIM, NNULL (3), FNULL (3) 
COMMON/RGDT/IEL, ITPE, ITPEL, IGRE, IDLE, ICE, IPRNE, IPREE, INEL, IDES, 176 
{ NULL (4) 

COMMON/TRVL/VKSI, VPN, VP, KEXP, KDER, K1 
DIMENSION VKPG(#), VNI(#) 
DIMENSION VKST1 (3), KEXP4(3), VKSI2(16) , HEX92( 16), VASIS(60), 
{ KEXP3(60) 


veeees INFORMATION TO DEFINE THE 3 REFERENCE ELEMENTS 
(INEL.LE. 20 NDIM.LE. 3) 
DIMENSION VSI (NDIM¥INEL) , KEXP (NDIMBINEL ), KDER(NDIM) 
DIMENSION VKSI( 60), KEXP ( 60),KDER( 3) 
C DIMENSION VPN (INELINEL), VP(INEL) 
DIMENSION VPN ( 460), VP( 20) 


Geom © 
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: 


C+++ 
C+++ 


c 
Ct ALL OF THIS WAS SIMPLY TO GET AROUND THE 
CH+ MICROSOFT COMPILER BUG 
E 
eel, im 
C—---—- SELECT TABLES VKSI AND KEXP ACCORDING TO NDIM 
LL =NDIMEINEL 
BO TO {1,2,3),NDIM 
1 VKSI(1)=VKSE1(2) 
KEXP(1) =KEXPH (1) 
2 VKSI(I)=VKSI2(1) 
KEXP (1) =KEXP2(T) 
3 VAST (1) =VKSI3(1) 


| 


DATA KEXP2/0,0, 1,0, 0,1, 2,0, ty!) O,%, 20! 
DATA VKSI3/-1.D0,-1. D0, -1. D0, 


Won om Of e OF mM 


| 


DIMENSION Ki{INEL) 
DIMENSION Ki{ = 0) 

CHARACTERISTICS FOR t,2¢ AND 3 DIMENSIONAL REFEREACE ZLEMENTS 
DATA IDEGR/2/ 


THIS 1S COMMENTED OUT BECAUSE GF TRE #5 Fu 
ILER BUG WHICH WILL NOT INITIALIZE SLARGe ARRAYS. 
THESE ARRAYS ARE NOW INITIALIZED BY A CALL TY A DUMMY 
SUBROUTINE INITN{ WHICH EXISTS SOLELY TQ IND TAL TZE 
THESE SIX ARRAYS. 


DATA VKSI1/-1. D0, 0. DO, 1.D0/,KEXP1/0, 1,2/ 
DATA VKSIZ/-1.D0,-1.D0, +0.00,-1.D0, +1.00,-1.D0, +1.D0, +0. D4, 


RTREN COrte- 


Oi Gee eset, 00.41.00, —1.00,+:.00, -1.00,+0.D0/ 


+5. DOR 1000, ~VeD0, 
PDO cera Dl, ane, 
~1, Nyt ioe, - 00, 
=|. Dom lao, +0900; 
+1. D0, +1. DO, +0. DO, 
Serre 09, +1. 005 
+) 0G -1 00, +t .D0, 
+1.00,+1. DO, +1. D0, 
=1, DOywiauey +t. DO, 


Hm y 1. LC, —1. 00, 
+1. 90, +0. D0,-1. 00. 
FOcD0, +1. DO, -1. D0, 
Jape. ta00,—1. 00. 
+1, D0, ~19b0, +0. 00, 
mies ta DO, tO. D0, 
+1, DO, -1. D0, +1. 00, 
+100, +0. D0, +1. 00, 
e500, +1. 00, +3, 00, 
-1.D9, +0. DO, +1. DO/ 


DATA KEXP3/0,0,0, 14040, 01,0, 0,0), 11,4, 
1, 1,0, 0, 1,4, 1,0,1, Cy 9,0, 


G2,0, cree, 


Eee PROMO, 2,1, fy, 290) 0,2,1, i721, 


HERE IS THE CALL 10 GET AROUND THE MICROSOFT 
COMPILER BUG 


CALL INT TNL (VKSI1, KEXPI, VAST 2, KeXP2, VAST S, KEXD3) 
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Sg 
4 ag 


/ 


KEXP (1) =KEXP3 (2) 
5 CONTINUE 
(------- EVALUATE THE PN-INVERSE MATRIX 
CALL PNINV(VKSI, KEXP, VP, Ki, VEN) 
(C----—-- EVALUATE N, DIN) /D{KSI), DAN) /D(ETA) AT 6.2. 
Its 
12=1 
DO 10 IG=1,1P6 
KDER (1) =0 
KDER (2) =0 
KDER (3) =0 
CALL NI(VAPG(I1) KEXP, KDER, VP, VPN, VNI (12) ) 
12=12+INEL 
XDER (1) =! 
CALL NI(VKPG(I1), KEXP, XDER, VP, VPN, VNI (12)) 
T2=12+INEL 
IF (NDIM.EQ.1) 60 TO 10 
KDER{1)=0 
KDER (2) =1 
CALL NI(VKPG(I1) , KEXP, KDER, VP, VPN, VNI(22)) 
12=12+INEL 
IF (NDIM.EQ.2) 60 TO 10 
KDER (2) =0 
KDER(3)=1 
CALL NI(VKPG(Z1) KEXP, KDER, VP, VPN, VNI (12) } 
12=12+INEL 
{0 1=IL+NDIM 
RETURN 
END 
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SUBROUTINE ELEMO2 (VCORE, VPRNZ, VOSEE, VOLE, VE, V7Z) 


C 8 NODES GUADRATIC ELEMENT FOR ¢ DIMENSIONAL ELASTICITY 

it EVALUATE ELEMENT INFGREATIONS HCCIRDING TC ICODE VALLE 
: ICODE=1 ELEMENT PARAMETERS 

C TCODE=2 INTERPOLATION FUNCTIONS AND GAUSS COEFFICIENTS 
t ICODE=3 STIFFNESS MATRIX 

: ICODE=4 TANGENT MATRIX ... NOT WRITTEN... 

C ICODE=5 MASS MATRIX 

Gs ICODE=6 RESIDUALS 

C ICODE=7 SECOND MEMBER 

C TCODE=8 EVALUATE AND PRINT STRESSES 

C ELEMENT PROPERTIES 

C VPREE(1) YOUNG'S MODULUS 

C VPREE(Z) POISSON'S COcrrICIeNT 

c VPREE(3) .£0.0 PLANE STRESS 

e .cQ.1 PLANE STRAT 

C VPREE(4) SPECIFIC MASS 


a ee ee ee ee ee ee ee a Sa 
IMPLICIT REAL¥8{A-H, 0-2) 
COMMON/COOR/NDIM, NNULL (3), FNULL (3) 
COMMON/ASSE/NSYM, MFILLR(3) 
COMMON/RGDT/IEL, ITPE, ITPE1, IGRE, IDLE, ICE, IPRNE, IPREE, INEL, IDES, 126 
{ , ICODE, IDLEO, INELO, 150 
COMMON/ES/M, MR, MP, MDUMMY (10) 
DIMENSION VCORE (+), VPRNE (#) , VPREE (#) , VDLE (#), VRE (#), VEE (#) 
C...ee2. CHARACTERISTIC DIMENSIONS OF THE =LEMENT 
C DIMENSION VCPG( IPS) , VAPG(NDIM# IPE) , VOE1 (IMATD4#2) 
DIMENSION VCPG{ 9), VARGA 18), VDE! { 9) 
C DIMENSION VBE (IMATD#IDLE), VDE (IMATD##2), VJ (NDIMENDIN), VIL (NDINE 
DIMENSION VBE ( 4B), VDE ( 9), VI { 4), VIL (4) 
C DIMENSION VNIX( INGL#NDIM) ,VNI ((14NDIM) #INEL#IDS), IPGKED(NDI¥) 
DIMENSION VNIX( 16), VNI 216), IPGKED( 2) 


2 


DATA ZERO/0. DO/, DEUX/2. DO/, X05/0. 5D0/, RADN/. 5729577951 30823D2/ 
DATA EPS/1.D-6/ 
SQRT (X)=DSORT (x) 
ATAN2 (X, Y) =DATAN2 (x, Y) 
c DIMENSION OF MATRIX D 
DATA IMATD/3/ 


C | 

eared THIS 15 COMMENTED QU7 BECAUSE CF THE MS FORTRAN COMO- 
C+++ TILER BUG WHICH WILL NOT INITIALIZE $LARGE ARRAYS. 

Cre THIS ARRAY IS NOW INITIALIZED BY A CALL TO A DUMMY 
ett SUBROUTINE INITPG WHICH EXISTS SOLELY TO INITIALIZE 
C+++ THE NUMBER OF GAUSS POINTS FOR THE CALLING ROUTINE. 

C 

L DATA IPGKED/3, 3/ 

C 

C HERE IS THE CALL TO GET AROUND THE COMPILER BUG 


Zoe 


| 


= 5,) “eT eae ems = 2.%3 * 
eet TNd J (lSGK2D, §=_G2"} 


e 
C++ Au CF WATS WaS SGLeLY 10 Gs? AxGUND Tee vendeees 
Bo. COP ab aeES 
C 
Ceonm=-—— Cedea= SeNCTION 19a =X=CihSy 
2 

SG 70 (100, 200, 300, 400, 300, 600, 700, 800) , ICERE 
Ceeworam RETURN ELEMENT POXAMETENS IN COMMON 'AGDT? 
ie = 
190 f$LeG=16 

INELO=8 

To0=3 

RETURN 


mann-— EVORUATE COURDENG'=S, WeiGHlS, FUNCTIONS END jets 
"oS DERIVATIVES AT GFP. 


if 
iQ = CALL GSUSS (EPSK=D, ADIM, VAPG, VEOSG, 19 
Bim Lisd) GO 1G 220 
WALTE (MP, 2000) 26 
2000 eORYAT(/15,' SAUSS POINTS? /10X, VCPG!, OX, Vde5") 
10-1 
e f40 15=1, 155 
L=LOtNDIM-1 
emmeedtl VCSG (55), (VAPG(T), 1=10, 11) 


210 1GSIG+NDIM 
2010 CRMAT (LX, £20. 15, 5X, 320, 15) 
220 CALL NIO2@(VKDG, YNT} 


iP (HLT. 2) RETURN 
THe Ze NEL ¥ [0G 
wRiTs(™), cOe0) (VNE(T), f=8, ff) 
20e0 SOgMeT(/) FUNCTIGNS N AND DERIVATIVES! / (1X, GE:2.5)) 
se UAN 


nm--—— EVALUATE ELENENT STIEFNESS YATRIX 


asi aed 


ta 


wommem = (NITIALIZE VAE 
300 6«-BG 310 [=1, 136 
Sid) VKE({) =ZER0 
eee FORM MATRIX D 

CALL D0e(VPRES, VDE) 

TF (M,GE.2) WRITECMP, 2030) (VDE(I), 1=1,9) 
“330 =QRMAT(/) MATRIX DI/1X, 9et2.5) 
U----- — (209 OVER THE 5.5, 

Tusdeine ei 

ae $30 iG=1, 1P6 
C------- EVALUATE T=E JACCSIAN, 175 INVESSs AND ITS OSTIAMINANT 
CORLL TPCOB(VNT (11), VOGRE, NDIM, INEL, VJ, VJ1, DETJ) 
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-“——- 


emt roo) ata ( 82.2050) 12 , 25,02. 
emt eee meters, MS,’ GLP. 4a,’ DE: (J)="'.222. 5) 
Ceca ewRerateesnso) Vs Vii, Bethy 
Siecmerecis’ JRCCHIAN=" 4622.9 7° J inVERS=',42!2.5/' Detu=', 22,5) 
fa — =e re OFLOS> 
6 CaVCPS( IG} #DETS 
bE. S20ei=!,3 
S20 Vue ti)=Vbe (1) 4c 
[-—----- <33M YATRIX 3 
CALL DNIDX(VNE (TE). Vi, NDiM, NEL, VNIZ) 
27 (#7, G2.) WRITE UMP, 2060) (VAIX(l), S=!, 16) 
200 FORMAT(/) VNIX'/ (LX, BEiz, 3) ) 
wae SOC (VNIX, INEL, VEEi 
Te(¥.Ge.d) wal tc(%,c070) (VBE(T), 1=1, 48) 
mp7) -GAWST(/' SATAIX B9/ (xX, 10812. 5)) 
CALL BIDB(VKe, Vee, VDE1, IDLE, TMATD. NSY™) 


Ay 74 

oad aii tet Nel 
METH 
aioe wh, 


—— SVALUATS THE ELEMENT TANGENT MATRIX 


os 

Ly 

£50 CONTINUE 
RETURN 


ee 
—- EVALUATE THE MASS MATAIX 
e 


500 DD S10 I=i, 136 
S10 VKE(I)=7ERO 
(---—--- L002 GVER THE G.P. 


IDIMI=NDIM-! 
TDESU= (NDIM+1) #INEL 
Li=it NEL 


[2=0 
Dd 300 [5=1, 196 
CALL GACGSOYNECT), VCORE, NDiM, SNE, VI, VJ1, 9512) 
D=VCPG (1G) #DETIJ#VEREE (4) 
fa eee tc FASS FSQMS 
1DL=0 
DO 340 Jai, INEL 
iJ=el2+J 
JO=1+IDL#(1DL +1) /e 
00 330 I={,2 
= ete 
CoVNI CLI) #VNE (JS) *D 
¥KE (JO) =VEE (JO) 40 
aig oo) 30 
si=JOti Dut 
DO 520 tet , iDIM! 
VE (J4) <VKE (21040 
sett JizJi4git! 
30  JO=JO+NDIM 


2.69 


249 Teg 


7 a T 

aa 147 DCC. 
om 2° —=A 
ae hie” « 2+ Dec 

STS 

42K 


wwowenwn=  EVOLUATE THE ELEMENT RESTOLG: 


-otag- Oe 


au C 


wae = SORM MATRIX 2D 

mM CALL DC2<VPREE, VDE) 

mooeweno INITIGQUIZS THE SeSiDUAL VeorGx 
DG 610 [D=1, iDe 

619 ee D)=ZERO 


oo 
o™ 


Cacessa= LOGP OVER TEE S32. 
TI=]+iNec 
DG 640 [G=1, I9G 

. ae eVEALUATS THE SACORIGN 


CALL JACCBCVNE (27), VCORE, NOIM, INEL, VJ, VdL GEN 
(amen — EVALLIOT= FUNCTIONS NENT) /D(X) 
CALL DNIDX(VNI (ii), Voi, NDIM, INEL, VNIX) 
Cemennm— EVALUAT= STRQINS GND STRESSES 
crexX=Zeko 
erSV=aZeERi 
SHMEXY=ZERS 
i= 
Bie6c0 iNet, cNEL 
UN=VOLE (io) 
VN=VELE(TD+!) 
CL=VNTX (IN) 
iNISIN+iNEL 
Cl=VNSiX (INI) 
22 5X=295X+01 #UN 
FSSYSEPSY +CleVN 
CeMY Y=GARX Yr O 1 eVNAC CEN 
me 
cea (iG) tet 
== aioe 
$2706 (9) C1 
we = WDE (27 40S 
Sl XaT LHC DGX eC eCOsy 
3. GY=COREPSX+C1 HEBSY 
TAGXY=CSEGAMXY 
-———=ae } ae TRE RESIDUAL 


‘Fi 


Pus 


| i 


“620 IN={, INEL 

CisVNTX (IN) 

INTSINFINEL 

COSVNIX (ZINE) 

Vsti DbaVr& (iD) +01 eS iox+CeeTBuxy 

VFe(iD+i1)=VEE (204i) +CeaSIGY+Cl #TAUXY 
558 ‘D=iDtee 
640 TLSTIL 4S NEL 


2a 


— 


mm 





oe EVOLUOTS YOLUMIC FORCES, S¥,FY 523 LNIT VOLUME 
B ( FOR S3AVITY FX=0 FY=-VPREE(4) ) 
c 
700 FXSZ=RC 
FY=-VEREE (4) 
DG 710 I=1, 16 
TG VFECL)=7ER 
"321 


[DECL= (ND IM 1) #INEL 

DO 736 IG-1, IFS 

oti JACOB (VNI (LI+INEL), VOGR2, NDIM, INS_, VJ, Vit, DET) 
DX=SVORS (18) #DETS 

DY=DX#FY 

DXSDX#FY 

1221} 

tas! 

DQ 720 IN=t, INEL 

WEE (13) =VFE (13) +DX*VNI (12) 
VEE (134L) SVEE (1341) +DV#VNI (12 


fe Yo] 4 
Te=ic+l 


420 igi 3t2 
73000 TiSTi+iDECh 
= URN 


L 
Semmes SveeUnic AND PRIN? SYRESSeS AT G.9. 
= 


ACO WRITE (MP, 2080) ISL 
2080 FORMAT(//? STRESSES IN ELEMENT ', 15/ 
1? P69, 7X,2X", $1X,9¥!, OX, SOSK! AK, ERSY?, 7%, *SAMKY?, AX, STSN, 
© BX, !SIGV), 7%, ? TAUXY?, BX, TETAY/ 71X ,'SIG19, BX, 'SIG2", 7X, ' TAUMAX? 
5?) 
(------- SOnM THE MATRIX D 
CALL DOS (VPREE, VDE) 
fee Gea Ge? THE S. ?. 
TLSiFINEL 
1220 
DD B20 'G=1, 196 
C------- EVALUATE THE JACOBIAN 
Pali JACOB (VNI(I1), VCORE, NDIM, INEL, VJ, VJi, DETJ) 
Dan—---- EVALUATE FUNCTIONS D(NZ)/D(X) 
CALL DNIDK(VNI (14), VJ1,NDIM, INEL, VNIX) 
(------- COMPUTE STRAINS PND COORDINATES AT G.?. 
ENSX=Z=R0 
EDSY=7ER0 
SOMXY=ZEXC 
X=ZERO 
27220 


2 eal 


JNSVOLE (TD) 
taiev DLE( 13+!) 
AN=VCOWE (29) 
N2V004= (1 D+4) 
Clava sX (IN) 
See Net 
COEVNITX CINE) 
2\L= Se 
So=VN2 CIND) 
- 5SY=20USY+C2 HUN 
SPSY=ERSV+CZ HN 
SOMA YSGSMXY+CL EVA CORUN 
REX+lSeKr 
{a tc aeyN 
a bala 
-———- SMPUTE TRE Sixesoes 
STGX=VDE (1) #EPSX+VDE (2) HE ESY 
SISVaVDE (2) HEOSX4VDE (1) HEDSY 
TRUXY=VDE (9) #GAMXY 
Common - «COX BUTE THE ORINCIPAL ST#ESS=S 
TE” R=ATANG (DEUX*TAUXY, SIGX-SISY) *#X05 
ToT RSET SERADN 
Cs=(SiGxeSl sy) 4X05 
aoa “Si 5Y) #K0G 
UMEX=SSGRT (CZHCC+TAUXYRTRUXY) 
so +7 HURRX 
Taz=ci-TauMAx 
aT 2(MS, 2090) 16,X, Y, c2SX, SDSY, SAMXY, 526K, S57, TIUKY, 
i TETA,SIG?, SiGe, TAUMAX 


ae ie | 
' 


frr 
oa 5. 
ages, 
he 
7+ 


2030 FORMAT (ix, 5, BE 12,5, 5X, 75. 1/66X%, g£12. 5) 
ic=f2+3ei NEL 

S20 Tistieg¥INEL 
Re URN 
=ND 


Ze 


ee OWL ee eee 


EE U_— 


a 


OO TEE EEE TE Oa ———— 


: 


C TO EVALURTE TRE INTERPOGLATICN FUACTIONS N AND THEIR DeQiVAT IVES 
Fl DIN) /D(4S!) AND 58) /EFA) BY GENESOL SNMINVERSS PSTKE! 
i, ikRUT 
3 VRS COCRUINeTGS 4: wrauP WN 7&5 70 Be 2VALudtsy 
% 126 NuvBes UF = GINTS 
ce 3 NEL NUMBER GF FUNCTIONS N (OR G= NODES) ire = Ud 
iG AEM NUMBER UF JIMENSTGNS NDIM. 2G. 2 
o er is 
C VNI -UNCTIGNS N AND DERIVATIVES 
eeeic:. aeeLta(A-4, 0-7) 
So ON/COCR/ND iM, NNULL (3), PNULL (3) 
SpMG ODT / “ZL TOE, 271, *6 Rebs, bn, bon, Lome, 1 Nols Uns, 1eb 

bo MULL (4) 

SOON TRY_/ VAST, VEN, Vd, AEX, ADER, Af, NULL (420) , ENULL 

DIMENSION VKPG(#), VNi (+) 
Sere teem tons SclS 20 12 14e da NGDES ROSSRENCE SUCON= = =MENT 
5 on Moi. u.2) 
fe DIMENS*ON VAST (NDIM#INE), dcXe (ADIM#INED) , ADES ONDI™M) 

1 aii VST 16), KEXP 4 iBT MDER( 62) 
u iN=L? 


DIMENSSON VPN CINEL#INEL) VOCINEL) Al 
Vignes 


{ 
DIMENSION VON ( 64) VEC B),Ki( 8) 


C3 


C NODAL COGRDINGTES GF THe SEPSRENCE ELEMENT 
fo 
- * 
DATA IDEGX/e/ 
5 
Lt++ Prices seeOM Ne cd: SSCAUSS oF Tne MS ruaisAe CoN 
Urtt < RUG WRICH WILL NOT INDTTALIZE $LARGE ARSAYS. 


Ctt+ s=S2 A8n4Y5 SRe NOW INITIALIZED SY A CALL TO A DUMMY 
ctt+ Su OUTING INTEND WHICH EXISTS ENLELY TQ INITIALIZE 
Ter THESE G Tiwu es 


c 
G ie yale te UU, —leO0, t6.0,-3.D0, t1.00,t0. 08, 
a : oo Sgt. ie, t laU0, is D0, 1.00, ee Ons 
= MONGMIOL =XSUNENTS Cr THE PELYNOMIAL SASIS, ¥AX-DESNES 
G neve E46 /0, eM y ee Os fats Osis ty hy be c/ 
L 
c = 1S THE CALL TO GET SkGUND TSS MICROSOFT 
it ae LEX BUG 
c 
CALL IND ONC (VASE, HEX) 
ic 
C+++ Sie Gr TH:5 4OS SEEN TO GET AXQUND © 
C+++ bomite® Bus, 


w@esaeagdgs 


iDEG=i0EGR 


a 3 


t-— 


axe 


ae SVSLUATE THE IN-INVERSE YO7=IX 
CALL ONTAV(VHS2, KEX3, VP, K2, VON) 
Tanen--- EVALUATE DAN) D452) BAND /B(ETO) ST G3, 


4 ow 4 
pe 


oe ‘0 Tosi, Ps 
KDER{i)=0 
MDE RM 2) a0 
CALL NICVAPG (TL), KeX9, XDER, V3, VON, NE IE) 
ic=letiNel 
ports! 
CALL NICVKPG(T!), XEXP, MDER, VP, VEN, VNI (27) 
PesTetINel 
Kober (i) =0 
KADER (CZ) =i 
CAL Si (VKPG (TS) KEXP, ADS%, VP, VEN, VNi (ic) ) 
Tz=ale+i NEL 
Lisfi+NDiM 
RETURN 
END 
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SIEROUTINe D002 Wexte, VBS) 


-_ 
Fm mare ae SR wey ep a me mm ee i ee ce cc cs ce ce ce ee ee cee ee ee ee ee ee ee ee eee ee eee es 


SS ee ee ee ee ee ee ee em cee ee ces ce ee es es ee ce ee ee ee ee ee ee re ee es ee ee ee ee eee ee ee ee ee 


C iG FORM MATRIX 9 (2 GINENSTONAL ELeSTICiry) 
j INPUT 
e VPSE= <Lomen? YSGPEais:S 
C Vevecii) YOUNG'S MO0uECS 
u Naest(e)  PUISSIN SG COs tu lak? 
U VOREE(S) .&C.0 PLANE STRESSES 
: eee Suni NS 
U OUT ELT 
u Vor MATRIX G (FULL) 
ee ee eae aa ae oa a aaa aa oe oo eae aaa seas = ss s===S= ==se— 
Pieescli eae¥d (Ah, C-Z) 
Ditmas. ON VOREE (x) , VDE 5) 
DAA c2t0/0. 30/, UN/ i. BG/, DEUX/2. 00/ 
SSVPHEE Cl) 
N=VP TELE) 
R=VANEE (3) 
eis 


28 CIN-A#X) / fCUNFX) #LUN-X-8#X) ) 
coat) fy i-R¥X) 

CSao/ (DEUK# CUNFX) ) 

VDE ( 


“1 
mc 
AN 
ca 


ge gsy ht pee rh 


\t 
ce 
< 


BeC. 
Vie (2) =Ce 
VE 43) =ZEAQ 
v2 (4) =Ce 
Voe(S)=01 
Noe ioi=2eR9 
VDE (7) =ZERO 

(Sd=ZE 

( 


3) =03 


« 


; ee 


vi 
Pl 
a3 


26s 


SUSRET ree 50d (YNLX, TEL, ee, 


a= ae ee oe a a See ee ee ean ann ee rae en ee ae ee eee eee oe eae a aoe ee SS STS SSS 
. iQ ORG MAQASY & (2 DNS ee Seno, 1) 

2 INPUT 

: VNIX ae Ur INTSRSDCAT GON CLUNG) .GNgmae. 72 hae 

e INE. 0 ONUNBER QF INTESPOLATION FUNCTIONS 

E GS Put 

C VEE MACAIX g 


IMPLICIT SEAL#S(A-E, O-2) 
DLYENSIIN WNIX(INEL, #5 VBECS, # 


vs 

eed 

By 10 t=), NZ 
CrsVNIX(Z, 1) 
VZaVNIX (2,2) 
piers 5a 

¥ itt Nie @ 


216 


pee goa sme be v4s, VES, Vie, Uc, ed 2, ay) 


Z pomeeemeceeoebeo: Btits.s GG VKe 

C iNPUT 

c VAE SLSMEN; MATRIX NUN commie nals xc, .) 
c SYmhe rR’ (NSYM, EG, 0) 
. VE MATRIX B 

e Ve MATRIX O (FULL) 

z BOGE, (NerRe Wwitsen Gr 0.0.2 dex ceeyEN! 

E iMATD  QIMENSION Or MATRIX D (MAX, 6) 


elit 

m2 
<< on 
— kD 
Pao 


pe i erm mm me em me mm er eae 
ape eh me eee mmm em ee ee ee ee ee Se 


IMPLICIT ARERR (A-K, UZ) 
Ua AaNG UN —" SCIMATD, #), VDE CIMATo, #), 7 (6) 
mer R ZERC/0. ik 


a Se ee ee ee ee ee ye 


naa 


vd i0 J1=i, M47) 
S=CAVDE (11, JL) AVBE(SE, 2 
Pim; (,1)=C 
tr (NSY4, 0.0) IMAX=J 
DS 40 Z=1, DNAX 
vale2g 
DO 30 Jist, IMATD 
3B U7CTVBE JL, i) eT (GT) 
lhe ng Pre 
40 =i sel 
TERN 
END 


mae 


b-» 


Za 


INITIAL DISTRIBU TECK Sees 
No. Copies 


Defense Technical intormationmseeneem 2 
Cameron Station 
Alexandria, Virginia 22314 


Library, Code 0142 Z 
Naval Postgraduate School 
Monterey, California 93943 


Department Chairman, Code 69 i 
Department of Mechanical Engineering 

Naval Postgraduate School 
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Department of Mechanical Engineering 
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SUbDLeC ebay, — So xo 
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Department of Mechanical Engineering 

Naval Postgraduate School 

Monterey, California megs es 


Professor K. J. Bathe i 
Mechanical Engineering Department 
Mee ie 
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Professor Edward L. Wilson i 
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Dr. Gilbert Touzot il 
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University de Technologie 

60206 Compiegne Cedex 

France 
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Gr 


ele: 


PZ. 


3. 


es 


lo 


iGe 


Jae 


re: 


aie 
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Naval Sea Systems Command 
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Cor Wa Eo Marsh, USN 
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Naval Sea Systems Command 
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Mr. Ray Mallory 

Code 753 

Naval Coastal Systems Center 
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ZOE 


Ze 


Dees 


Z oF. 


Da. 


Mr. “Ke Calva 

Code StAwoz. 

Naval Sea Systems Command 

Naval Sea Systems Command Headguarters 
Washington, DC 20362 


Mr. J. Kenworthy 

Code SEA 5244 

Naval Sea Systems Command 

Naval Sea Systems Command Headquarters 
Washington, DC 20362 


Mr. R. A. Langworthy 

Applied Technology Laboratories 

U.S. Army Research and Technology Laboratory 
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Army Materials & Mechanic Research Center 
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